Select Code to Download

use File::Basename;
$infile_name = shift(@ARGV);
...
print STDERR "1.Cannot read $infile_name\n";
exit 99;
}

my $ver_name = shift @ARGV;
...
print STDERR "2. Cannot read graph=$graph\n"
exit 99;
}