defined( my $pid = open( FROM_CHILD, "-|" ) ) or die "can't fork: $!";
if ($pid) {
    my @output = <FROM_CHILD>;
    close FROM_CHILD;
} else {
    open STDERR, ">&STDOUT" or die "Can't dup STDOUT";
    exec @command or die "can't exec: $!";
}