Perl: Abbruch bei jedem Aufruf