Исключения

# Весьма необычный способ обработки исключений

sub f {
    die "Exception";
}

eval { &f(); };

if ($@) {
    print $@;
}