Select Code to Download

BEGIN{
  @ARGV == 1  or warn "\n\tUsage: $0 FILE\n\n" and exit 255;
...
}

close (INFILE);