my $erg = eval {
  local $SIG{ALRM} = sub { die };
  alarm(20);
  my $erg = &mach_was;
  alarm(0);
  $erg;
};