my $pid = fork;
die "Error forking: $!" unless defined $pid;
if (!$pid) {
	my $pid = fork;
	die "Error forking: $!" unless defined $pid;
	if (!$pid) {
		exec("/path/to/foo");
	}
	else {
		CORE::exit;
	}
}