#!/usr/bin/perl use warnings; use strict; my $a = 5; my $b = 0; try { print $a / $b; } catch { print "Error: Division by zero.\n"; } # Dies macht doch dasselbe: if ($b != 0) { print $a / $b; } else { print "Error: Division by zero.\n"; }