eval {
  die hard;
};
if ($@) {
  # fehler in $@ abfangen
}