The printing at the end, in verbose mode was not displaying variables properly because the print was '' and not ""
my ( $amount, $type, $unitcounttotal ) =
CalcFine( $overdue, $borrower->{categorycode},
$branchcode, $datedue, $today );
-
$type ||= q{};
# Don't update the fine if today is a holiday.
if ($verbose) {
my $overdue_items = @{$overdues};
- print <<'EOM';
-Fines assessment -- $today->ymd() -- Saved to $filename
+ print <<"EOM";
+Fines assessment -- $today -- Saved to $filename
Number of Overdue Items:
counted $overdue_items
reported $counted