use strict;
use warnings;

my $cmd = "tasklist";
my $pid = open PIPE, "-|", $cmd or die $!;

while (my $line = <PIPE> ) {
    print $line;
    last if $line =~ /^smss/;
}

close PIPE;