my $return=undef;
eval
{
  # alarm mit befehl belegen
  local $SIG{ALRM}=sub{die;}
  # timeout von 5 sekunden
  alarm(5);
  $return=qx/tuwas/;
  # timeout abschalten
  alarm(0);
}
if ($@)
{
 print "Befehl konnte nicht ausgeführt werden\n";
}
else
{
  print "Befehl erfolgreich abgesetzt\n";
}