$ perl -MO=Deparse two.pl

BEGIN { $^W = 1; }
sub two {
    use strict 'refs';
    2;
}
use strict 'refs';
printf "two + 2 = %d\n", two(2);

##</code><code>##

printf "two + 2 = %d\n",two() + 2;