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

sub test{ 0 }