$SIG{CHLD} = 'IGNORE'; # on systems where it's supported

defined( my $pid = fork ) or die "fork: $!";

if ( $pid )
{
    # parent
    print "child pid is $pid\n";
}
else
{
    # child
    exec("a.out") or die "exec: $!";
}