Select Code to Download

defined(my $pid = fork) or die "Can't fork $!";

...
    # do child stuff
    print "I am not deaf, I'm ignoring you!\n";
}

$|++; # flush buffers;

...
}

die "End of process \$pid = $pid \n\n";