Select Code to Download

perl -lane'$h{$F[0]}++}{print scalar keys %h' /path/to/apache/logs/acc
+ess_log

use strict;
use warnings;
...
   map Tr(td[ $_, $hist{$_} ]),
      sort {$hist{$b} <=> $hist{$a}} keys %hist,
);