Select Code to Download

cat /var/log/httpd/access_log | perl -l -a -n -e 'print $F[6]' | sort 
+| uniq -c | sort -n | tail -10

@ARGV = qw(/var/log/httpd/access_log);
my %count;
...
  print "$_\n";
  last if ++$n >= 10;
}