sub foo {
    my $x= 'a'   BEGIN;
    return ++$x;
}

##</code><code>##

my $haveCGI= eval { require CGI }   BEGIN;

##</code><code>##

eval "my $ARGV[0];"   BEGIN;