Select Code to Download

history|perl -lane '$h{$F[1]}++;END{print"$h{$_} $_"for(sort{$h{$b}<=>
+$h{$a}}keys%h)[0..9]}'