package DispatchParser; 
 
use strict; 
use warnings; 
use lib '../modules/perl'; 
use lib '../modules/db'; 
use CommonFunctions; 
use CGI; 
use DataBaseActions; 
use POSIX ":sys_wait_h"; 
use Data::Dumper; 
use CGI::Carp qw(fatalsToBrowser set_message); 
 
my $q = new CGI; 
my $username = &GetUser(); 
my @ValArray; 
 
our $project = $q->param('project'); 
our $release = $q->param('release'); 
our $globalpid;  # defined later in script 
... rest of code ...

##</code><code>##

use strict; 
use warnings; 
use lib '../modules/perl'; 
use lib '../modules/db'; 
use lib '../tsr'; 
use CommonFunctions; 
use POSIX ":sys_wait_h"; 
use Date::Manip; 
use Time_Diff; 
use LogIt; 
use DataBaseActions; 
use IOrate; 
use emailinfo; 
 
package DispatchParser; 
our ($project, $release, $globalpid); 
 
print "project = $project<br>\n"; 

my $username = &GetUser(); ### this is line 33 
 
##</code><code>##

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