Select Code to Download

BEGIN {
   eval "sub foo {}" if rand() < 0.5;
}

foo 'x';

>perl -c test.pl
test.pl syntax OK
...
        (Do you need to predeclare foo?)
syntax error at test.pl line 5, near "foo 'x'"
test.pl had compilation errors.