Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
test2.txt -- 9
test2.txt -- 10

Select or download this

open(DB,"<$F")

...

open my $INFILE, '<', $fname
  or die "Couldn't open $fname: $!"