open(READ, "-|", "someoscommand.exe");

foreach $a (<READ>)
{
	chomp($a);
	print "==> $a\n";
}

close READ;