Help for this page

Select Code to Download

Select or download this

my $infile = $ARGV[0];
open(IN, '<' . $infile) or die $!;