my $child = fork(); 
if ($child == '0') {
	exec('perl test.pl');
}else {while(!waitpid ($child,WNOHANG)) {
    #hier kann alles mögliche parallel weiterlaufen!!
    } 
    print "\07fertig\n";
    }