in reply to (tye)Re: GOTO considered (a necessary) evil?in thread GOTO considered (a necessary) evil?
Sure:
sub DESTROY { eval "1" } eval 'my $x = bless {}; die "ouch\n"'; print "($@)\n"; [download]