my $pid;
if ($pid = fork()) {
	# Vater
}
else {
	# Sohn
}