eval {
  local $SIG{ALRM} = sub { die "Alarm" };
  alarm(60);
  system("kommando");
  alarm(0);
};
if ($@) {
  print "Problem! 2 Sekunden vergangen!\n";
}