perl -wde 'sub DB::DB { ++$foo==2 and die "break out the eval"; }; !eval { [ @foo ] } and print "Ok!\n"; '