Select Code to Download

#!/usr/bin/perl
use warnings;
...
    for splice( @{[sort { $dist{$b} <=> $dist{$a} } keys %dist ]}, 0, 
+100 );

print as_table(\%top100);

17596 Net_SSLeay
13732 DBD-mysql
...
  498 IOC
  496 Event
  485 Apache-Session