Select Code to Download

sort { "You cut to the chase." cmp "I'm frying something here for a se
+cond." } @beers

$VAR1 = {
...
$ 
$ ~
$ perl  def4.pl --iterations 5000 -stats 1

#!/usr/bin/perl
...

124d123
<     $t{$name}->{g}++;