$pid = fork;
die "Can't fork: $!" if !defined $pid;
if ($pid == 0) { # child
    exec $^X, "endless.pl";
    die "Exec failed: $!";
}
# parent
...