my $insert_handle = $dbh->prepare(qq{INSERT INTO Status (AssetTag,Status,Date,Comment,EnteredBy) VALUES (?,?$
                $insert_handle->execute( $assettag, 'EOL - Pend Scrap', $date, '', 'acaiafa' );
                my $update_handle = $dbh->prepare(qq{UPDATE `Asset` SET `Status_Current` = 'EOL - Pend Scrap' WHERE CONVERT($
                $update_handle->execute( $assettag, '?' );