my $pid;
select undef, undef, undef, 0.1 until defined($pid=fork);    # stellt sicher, dass fork() auch klappt
unless($pid) {
  close STDOUT;
  open STDOUT, '>', 'outfile.xml' or die;
  exec 'script','-m','test.list','-s', $outlistfile,'--nolabels','--viterbi';
  # hier sollten wir nicht landen, es sei denn exec() geht schief.
  exit -1;
  # zur Sicherheit kann man hier auch mehr Varianten des Beendens implementieren, z.B:
  # kill KILL=>$$;
  # POSIX::_exit -1;
}
waitpid $pid;
$rc=$?;