my $coderef = eval "BEGIN{goto skip;}sub { $code } BEGIN{skip: print 'Skipped!'}";