eval {
  print "Baue Verbindung auf\n";
  die "Verbindung konnte nicht aufgebaut werden";
  print "Verbindung wurde aufgebaut\n";
  1;
}  or {
  print "OK, wenn nichts funktioniert, mache ich halt Testumgebung\n";
  if ("$@" =~ /Verbindung/) {  # In "$@" steht die Fehlermeldung drin
    print "Der Fehler lag in der Verbindung\n";
  }
}