Select Code to Download

my $_todayIs = Format_Date_For_Viewing(time(),"day_only");
my $sth = $dbh->prepare(qq{SELECT * FROM `autoship_orders` WHERE `day`
+ = ?});
...
# Here is my chargeCard sub (top of it anyways):
sub chargeCard {
    %_billingInfo = shift;

my $_debug = 1;
open(BUG,">>/home/path/to/file") if $_debug;
...
            print BUG escapeHTML ($key) . " = " . escapeHTML ($_billin
+gInfo{$key}) . "\n";
        }
    }

    my $_cardCharged = chargeCard($_billingInfo);
...
    %_billingInfo = shift;

# AND every other way I can think of...