Select Code to Download

#!/usr/local/bin/perl

...
        print $mailer $body;
        $mailer->close;
}

#!/usr/local/bin/perl

...
foreach my $key (sort { $a <=> $b } grep { /^\d+$/ } keys %history) {
        print "$history{$key}\t".scalar(localtime($key))."\n";
}