eval {
  # hier passiert kritischer code
};
if ($@) {
  # es gab einen fehler in obiger code-ausführung. der fehler steht
  # in $@
  print "Error from eval: $@\n";
}