Help for this page

Select Code to Download

Select or download this

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

Select or download this
my $haveCGI= eval { require CGI } BEGIN;
Select or download this
eval "my $ARGV[0];" BEGIN;