Select Code to Download

{{{vars}}}
my $infile = <STDIN>;
...
      } # end switch
  } # end for
} #end

    $DistX[$x] = $line[2];
    $DistY[$x] = $line[3];