package R;
    my $R = 10;

##</code><code>##

    use R;

    package main;
    my $subcode = "sub { local \$_; package R; print $R }";
    my $subref  = eval $subcode;
    &$subref;