if( $#ARGV == 0 )
{
   my ($date) = $ARGV[0];
}
else
{
   # obtain the date from the previous day in the format YYYYMMDD
   my($yr,$mo,$day) = (localtime( time - 60*60*(12+(localtime)[2])))[5,4,3];
   #my $date = sprintf "%04d%02d%02d",1900+$yr,1+$mo,$day;
 
   # for test purposes!!!
   my $date = "20010912";
}
 
# Output the header to the info file.
# -----------------------------------
print OUTREP "\nThe following trades from " .  $date . " finished with a ticket status of 11\n\n";

##</code><code>##

Global symbol "date" requires explicit package name at ebOrdHist.pl line 60.
Execution of ebOrdHist.pl aborted due to compilation errors.