$cmd = '/usr/bin/whoami';
$pid = open(IN, "-|");
if(!defined($pid)){die "fork failed.";}
elsif ($pid == 0) {
exec($cmd) || die $cmd;
}
$iam = <IN>;

環境はcygwin(Perl5.8)。どうでしょ。