Select Code to Download

if ($ARGV[0] eq "-a") {
   open (INFILE, "$ARGV[1]") or die "$ARGV[1] cannot be openned : $!";
...
   }
   print "@{$hash{$_}}[0..2] $_\n" for sort keys %hash;
}