Select Code to Download

open (INFILE, "$ARGV[1]") or die "$ARGV[1] cannot be openned : $!";
while ($source_file =~ /(\d)\s+(\d)\s+(\d)\s+(\w+)/)

if ($ARGV[0] eq "-a")

use strict;
use warnings;
use diagnostics;