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