Hello. I can't seem to figure out how to get this code to work despite lots of Googling. Every time I think I wrap my head around it, I realize I'm spinning in circles :( I have a script that I need to modify. It currently has the ability to take in multiple options in which it is then going to update a database table. I need to be able to instead of having multiple variables written in the command line, I have just one option entered which will still do what it was doing before, but then some more stuff :)
For example, I currently run the command

liupdate B-P-2C544BX --type summary -c "setting status summary again" --status closed

and the result is:

open siebel qa
Tickets       DelegatedOwner Abstract
B-P-2C544BX   George       someone requests Reboot on W.X.Y.Z.

----------
Issue: B-P-2C544BX
IssueStatus: Open->Closed
ActivityType: Status Summary
ActivityAbstract: "update"
ActivityComments:
"setting status summary again"

y/n/YES/NO? (YES/NO => y/n to all tickets) : n
[download]

Now, I want to be able to do this in one go by running the command

liupdate B-P-2C544BX --decon

The logic behind this is that the --decon option will call up a subroutine that will:
i) Sends email to users
ii) Change Status Summary
iii) Change the ToDo instructions
iv) Change status of the ticket

I am very new to coding, and I can't seem to be able to get the information combined to update the table. I have been able to get one part (status update) or the other (summary update) to work, but not both simultaneously. I have also tried to get rid of most of the functions and just flat out state in the subroutine that "Status" = "Closed," but I couldn't get the variables to still work in the main call of the script. I was hoping that just making the variables the values I wanted would work as the subroutine needs to be able to add two rows to the database table (one for summary and one for todo), and currently, the script can only do one. Below is the script

#!/usr/bin/perl                                                       
+                                                                     
+                                                           
use strict;
use NIE::Siebel;
use NIE::MyWS;
use NIE::Issue;
use NIE::Utils;
use Term::UI;
use Term::ReadLine;
use Getopt::Long;
use Pod::Usage;
use Data::Dumper;
                                                                      
+                                                                     
+                                                            
# this will try and extract siebel ids. Once we have a potential list,
+ we will
# check with standard NIE utilitles
my $test="
9 asd  3 ad 23 bb  234
B-4-Q0KEI - Data centeer id
B-4-Q0KEI- Data centeer id
B-4-Q0KEI# datacenter id 
B-P-2B9NE3K - ticket id
B-P-2B9NE18 - ticket id 
B-P-2B9NE69- ticket id
B-P-2B9IUC7XX- ticket id
B-M-2CDHQV4- ticket id
B-P-2B3O6BE-ticket id- ticket id
B-M-2CRYYTD\$ - orderid
";
my $sid_regexp = qr/([[:alpha:]]-[[:alnum:]]-\w+)/; 
my $ip_regexp = qr/\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}
+(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b/;
my $qa       = undef; 
my $debug    = undef;
my $verbose  = undef;
my $live     = 1; #undef;  # default to live (really update) but can t
+urn this off.
my $yes_just_once = undef; # Yes to one ticket
my $abstract = "Status Change"; 
my $activity_type = undef; 
my $comments = undef; 
my $prompt_to_update = 1;
my $issue_status = undef; 
my $extract_ids_from_comments = 1; # by default we extract ids from th
+e text entered. 
my $extract_ips_from_comments = 1; # extract ips as well to look up ti
+ckets
my $login = uc($ENV{USER}); 
my @issues;
my @filters = $ENV{NIE_ISSUE_UPDATE_FILTER} || "and delegated_owner_lo
+gin  = '$login'";

my (%options) = 
( 
  "debug!"         => sub { 
    NIE::Issue->debug($debug) if ($debug); 
    $debug++; 
   }, 
  "verbose!"       => sub {
    NIE::Issue->verbose($verbose) if ($verbose);
    $verbose++;
  }, 
 "qa!"            => sub {
 $qa = 1; 
  },

  "abstract|a=s"   => \$abstract,
  "comment|c=s"    => \$comments,
  "dry-run|n"      => sub { $live = undef },
  "no-extract-ids" => sub { $extract_ids_from_comments = undef },
  "extract-ids"    => sub { $extract_ids_from_comments = 1 },
  "no-extract-ids" => sub { $extract_ids_from_comments = 0 },
  "extract-ips"    => sub { $extract_ips_from_comments = 1 },
  "no-extract-ips" => sub { $extract_ips_from_comments = 0 }, 
  "ips"            => sub { $extract_ips_from_comments = 1 },
  "type|t=s"       => sub { shift; $activity_type = to_activity_type($
+_[0]); },
  "status=s"       => sub { shift; $issue_status = to_issue_status($_[
+0]); },
  "issue-status=s" => sub {$issue_status = to_issue_status('closed'); 
+},
  "help!"          => sub { die_usage(1); }, 
  "yes|y!"         => \$yes_just_once, 
  "YES!"           => sub { $prompt_to_update = undef; }, 
  "decon"          => \&decon_server, 
  ); 

  sub die_usage { 
     my ($a) = @_;   
       if ($a) { 
         pod2usage(-exitstatus => 0, -verbose => 2); 
           exit;
       } else {
           pod2usage(2); 
           exit;
       }  
   } 
                                                                      
+                                                                     
+                                                              
 sub usage (;$) { 
       # Print any arguments 
       if (@_) { 
           print join("\n", @_), "\n\n"; 
       }  
       die_usage();
       exit(@_ ? 1 : 0); 
   }  

   sub extract_sids
   {  
       # obscure uniq expression do { my %seen; grep { !$seen{$_}++ } 
+@data }; 
       my (@ids) = do { my %seen; grep { !$seen{$_}++ } ($_[0] =~ m/$s
+id_regexp/mg)};
       return @ids; 
   } 

   sub extract_ips  
   {    
       # obscure uniq expression do { my %seen; grep { !$seen{$_}++ } 
+@data };
       my (@ids) = do { my %seen; grep { !$seen{$_}++ } ($_[0] =~ m/$i
+p_regexp/mg)};
       return @ids;
   } 

 # handle short hand for resolutions                                  
+                                                                     
+                                                            

   my %ACTIVITY_TYPES = ( 
       #  'followup'      => 'Follow Up', 
      'todo'          => 'Todo', 
       'resolution'    => 'Resolution',
       'statussummary' => 'Status Summary', 
       'summary'       => 'Status Summary', 
       ); 

   my %ISSUE_STATUS = (
       'open'          => 'Open', 
       'closed'        => 'Closed', 
       'cancelled'     => 'FOOBAR', 
       'pending'       => 'Pending', 
       'scheduled'     => 'Scheduled',
       ); 

  sub to_activity_type { 
       my $tag = shift;  
       return alias_to_string(\%ACTIVITY_TYPES, "activity", $tag); 
   } 

   sub to_issue_status { 
       my $tag = shift; 
       return alias_to_string(\%ISSUE_STATUS, "issue status", $tag); 
   } 

 sub decon_server { 
       my $time = time();
       my $future_time = $time + (30*24*60*60); #30 days with 24hrs in
+ a day with 60 min in an hour with 60 sec in a min 
     my ($second, $minute, $hour, $day, $month, $year, $dayOfWeek, $da
+yOfYear, $daylightSavings) = localtime($time); 
       my ($fsecond, $fminute, $fhour, $fday, $fmonth, $fyear, $fdayOf
+Week, $fdayOfYear, $fdaylightSavings) = localtime($future_time); 
       $year += 1900; 
       $fyear += 1900;
       my @month_name = qw(Jan Feb Mar Apr May June July Aug Sept Oct 
+Nov Dec);
       my $decon_date = "$month_name[$fmonth]/$fday/$fyear";
       return $decon_date; 
       #print $decon_date;
  
       #main ($options{status}='closed');
       #$issue_status = to_issue_status("closed");
       #$comments = "Decon on $decon_date";
       #$activity_type = to_activity_type("summary");

      #$activity_type = "summary";
      #$status = "closed"; 
   }

   sub alias_to_string {
       my $ALIASES = shift;
       my $type    = shift; 
       my $tag = shift;

     my @matches = grep(/^${tag}/i, sort(keys(%$ALIASES)));           
+                                                                     
+                                                            

       # if we have 'Other' and 'Other H&E..' then we can't possibly h
+andle the 
       # match if we just enter 'Other'. So, if we have an ambiguious 
+match, try an exact match. 
     @matches = grep(/^$tag$/i, sort(keys(%$ALIASES))) if (! (@matches
+ == 1));

       if (@matches == 1) { 
       return $ALIASES->{$matches[0]}; 
       }  elsif (@matches) { # More than one  
       usage("Ambiguous action abbreviation '$tag'  which has multiple
+ matches:" .  
                 '    ' . join(', ', @matches)); 
           # NOTREACHED 
       } else { 
         @matches =  grep(/^$tag/i, sort(values(%$ALIASES))); 
         return $matches[0] if (@matches == 1); 

           usage("Unknown or unsupported $type type: '$tag'");        
+                                                                     
+                                                              

           #return $tag; # if all else fails, assume it is a type we d
+on't know
                        # about but really exists. 
           # NOTREACHED  
       } 
   }  

   #   
   # modify how lookups work in the Module.  
   # 
 sub replace_lookup
   { 
       my $lu = shift;   
       my @lookups = ();  

     for my $i (@NIE::Issue::lookups) {  
           if ($lu->{name} eq $i->{name}) {  
               push @lookups, $lu; 
           } else { 
               push @lookups, $i; 
           }   
       }   
     @NIE::Issue::lookups = @lookups; 
   }

   replace_lookup({
        'name'  => 'issue_id',
        'type'  =>'object', 
        'func'  =>sub { my ($id) = @_; return is_issue_id($id) },  
        'query' => "select issue_id from cmn_int.ak_issue where  issue
+_id in (\$refs)", 
        },
   );

   main: 
   {
       my $dbh = undef;
       my $term = Term::ReadLine->new("brand");

       die_usage()
       if (!GetOptions(%options)); 

       NIE::Object->qa(1) if ($qa); 

       if ($qa) { 
           $dbh = openSiebelqa(); 
           printf "open siebel qa\n";
       } else {
           $dbh = openSiebel();
         $NIE::MyWS::test_only = 0;
      }

       my @stuff_to_search = ();

       # So, if we specify the tickets from the command line, assume
       # that is more relevant than extraction from comments.
       if (@ARGV) {
           push @stuff_to_search, @ARGV;
       } else {
           # Extract everything that looks lke a siebel id.
           my @siebel_ids = (); 
           push @siebel_ids, extract_sids($comments) if ($extract_ids_
+from_comments); 

           # Use standard NIE::Util functions to classify tickets.  
           push @stuff_to_search, map {(is_issue_id($_))?$_:()} @siebe
+l_ids;
           push @stuff_to_search, map {(is_order_id($_))?$_:()} @siebe
+l_ids;

           # search for ips if requested. 
           push @stuff_to_search, extract_ips($comments) if ($extract_
+ips_from_comments);
       }

       my %search_opts = ('filter' => \@filters); 
       if (! @ARGV) {
        $search_opts{lookups} = ['order_id','issue_id','ip_address'];
       }

       my @issues = NIE::Issue->search(\%search_opts, @stuff_to_search
+);

       if (@issues == 0) {
          printf STDERR "No ticket reference found.\n"; 
          exit 1;
       }

       printf "Tickets       DelegatedOwner Abstract\n%s\n\n",
        join("\n", map{sprintf "%-13s %-14s %s",
                       $_->issue_id,
                       $_->delegated_owner_login,
                       $_->abstract} @issues);

       for my $i (@issues) { 
           my $intid = undef;

           my $verbage = undef;
           $verbage .= sprintf "----------\nIssue: %s\n", $i->issue_id
+ ;

           $verbage .= sprintf "IssueStatus: %s->%s\n", $i->status, $i
+ssue_status
           if ($issue_status);  
           $verbage .= sprintf "ActivityType: %s\nActivityAbstract: \"
+%s\"\nActivityComments:\n\"%s\"\n", $activity_type, $abstract, $comme
+nts 
           if ($activity_type);

           if ($prompt_to_update && !$yes_just_once) {
               my $reply = $term->get_reply(
                   prompt  => "y/n/YES/NO? (YES/NO => y/n to all ticke
+ts)",
                   allow   => ['y','n','YES','NO'],
                   print_me => $verbage);
               next if ($reply eq 'n');
               last if ($reply eq 'NO');
               $prompt_to_update = undef if ($reply eq 'YES');
           }

           $yes_just_once = 0 if ($yes_just_once); 

           printf "Updating %s\n", $i->issue_id;

           if ($live) {
               $intid = addFollowup($i->issue_id,
                                    $abstract,
                                    $comments,
                                    undef,
                                    undef,
                                    undef,
                                    undef,
                                    $activity_type);
           }

           if ($issue_status) {
              if ($live && $i->status ne $issue_status) {
                  $intid = UpdateNoccSRTicket(
                      'SRId'   => $i->issue_id,
                      'Status' => $issue_status
                      );
              } 
           } 
       }
   }
[download]

Thanks for any help :)