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

##</code><code>##

my $infile = IO::File->new("c:\\...\\test.txt");