my $prog=fork();
if($prog){
 fork && exit;
}
else
{
#??
}
#... programm geht weiter