Select Code to Download

@ARGV == 1 or die "Usage: ...";
my $inFile = $ARGV[0];
...
foreach $key (keys %freq) {
  print "$freq{$key} $key\n";
}