Select Code to Download

    use LWP::UserAgent;

...
    } else {
        print $rsp->status_line, "\n";
    }

-----------------8<---------8<------------------
use Benchmark qw(cmpthese);
...
othersmack()  632/s       1400%       1048%        929%        721%   
+        --

-----------------8<---------8<------------------

-----------------8<---------8<------------------
use strict;
...
    } 
#} 
untie @array;

-----------------8<---------8<------------------
#!/usr/bin/perl -w
...
=cut

-----------------8<---------8<------------------

#!/usr/bin/perl -w
use strict;
...
    my $hash = shift;    
    sort {$order{$b} <=> $order{$a}} keys %$hash;
};