Help for this page
my $infile = IO::File->new("c:\\...\\test.txt |");
my $infile = IO::File->new("c:\\...\\test.txt");