Select Code to Download

perl -s script.pl [-THREADS=2] url [url...]

#! perl -slw
use strict;
...
## And print them
print "Atempted: $total";
print "Status: $_ ( $stats{ $_ } )" for sort{$a<=>$b} keys %stats;