use strict;
use warnings;

$SIG{CHLD} = '"IGNORE"';

my $child = fork();

if ($child) {
    print "I'm the parent, I think I'll wait for the child $child...\n";
    waitpid($child, 0);
} else {
    exec ("ls");
}