#!/usr/bin/perl

try {
        print "Hallo";
} catch {
        print "Fehler";
}