Select Code to Download

 
package DispatchParser; 
 
...
our $release = $q->param('release'); 
our $globalpid;  # defined later in script 
... rest of code ...

use strict; 
use warnings; 
...

my $username = &GetUser(); ### this is line 33

my $cmd = "/msg/spgear/tools/bin/perl ../exe/TAZ.pl \\\"$valhash{'agen
+da'}\\\" now";
 system("$cmd");