#!/usr/bin/perl -wl

$_ = q~BOB;print "not good"~;

eval "goto $_";
exit;
print "hello";
__END__
hello