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