Select Code to Download

use IO::File;
my $infile = IO::File->new("c:\\Users\\account\\My Documents\\test.txt
+ |");
...
}
print '$nolines = ' . $nolines . "\n";
1;