$ perl -MO=Deparse -M'5;print "foo"' -ne '}{print "bar"'

sub BEGIN {
    require 5;
    ()
}
print 'foo';
LINE: while (defined($_ = readline ARGV)) {
    ();
}
{
    print 'bar';
}