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 ...