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