Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    $sum = $sum + $v2;
}
printf("Total: %5.2f\n", $sum);

"Lunch Place", 1/22/2010, -4.110000, "Lunch", "", , 0 
"SomewhereElse", 1/23/2010, -17.40, "Beer", "12345", 0 
"Lunch Place", 1/25/2010, -4.755, "Lunch", 0            # fractional p
+ennies: highly suspect
"Yet Another Joint", 1/24/2010, 13.240000, "Lunch", 0   # not a negati
+ve amount: data entry error?

 $v2 is: 4.11
 $v2 is: 17.40

...
         Continuing as if it were present at F:\_wo\pl_test\819634.pl 
+line 34, <F> line 4.
 $v2 is: 13.24
Total: 39.50