Select Code to Download

if ($#ARGV != 0) {
     print "One, and only one (not $#ARGV), command line parameter is 
+expected\n";
     exit;
}

@ARGV == 1 or die "usage: $0 inputfile\n";

my $inputFile=$ARGV[0];

my $inputFile = shift;

if ( not -e $inputFile) {
     die "$inputFile doesn't exist!!!\nExiting.\n";
}

-f $inputFile or die "input file '$inputFile' does not exist.\n";

open my $file, $inputFile or die "Could not open $inputFile: $!";

open my $file, '<', $inputFile or die "Could not open $inputFile: $!";