for (1..3) {
    my $fork_pid = fork();

    if (! $fork_pid) {
    my ($Output);

        $Output="hello\t";
        $Output.=`ps au`;
        $Output.="world\n";
        print $Output;
        exit 0;
    } 
}