defined(my $pid = fork) or die "cannot fork. $!\n";
if ($pid){
   warn "i'm the parent";
}
else {
   &do_stuff(@args);
   CORE::exit(0);
}
return;