Select Code to Download

#!/usr/bin/perl -w

...
    print "\n";

}

11/05/09 12,                3424    
11/05/09 13,                   3    
...
11/05/09 17,                   1    
           ,--------------------    
sum        ,                3532

Use of uninitialized value in substitution (s///) at qad.pl line 18, <
+REPORT>
    line 1 (#1)
...
Use of uninitialized value in print at qad.pl line 20, <REPORT> line 1
+ (#1)

Use of uninitialized value in print at qad.pl line 22, <REPORT> line 1
+ (#1)