Select Code to Download

use strict;
use forks;
...
print "$_: $hash{ $_ }\n" for( sort { $a <=> $b } keys %hash );
print "Elapsed: " . (time - $t) . "\n";
exit 0;

use strict;
my $t = time;
...
print "$_: $hash{ $_ }\n" for( sort { $a <=> $b } keys %hash );
print "Elapsed: " . (time - $t) . "\n";
exit 0;