use strict;
use warnings;

use IO::Pipe;
my $cmd = "tasklist";

my $pipe = IO::Pipe->new();
$pipe->reader($cmd);

while (my $line = $pipe->getline()) {
	print $line;
	last if $line =~ /^smss/;
}

1 while $pipe->getline;

$pipe->close();