eval{ test(); 1; } or die "Fehler in test(): $@";

sub test{ 0 }