Help for this page
$file=IO::File->new('c:/scripts/002.txt'); ... # equal to open my $fh, '<', 'c:/scripts/002.txt' or die "unable to open a fil +e to read";