$ perl -v | grep ^This
This is perl, v5.8.3 built for i486-linux
$ perl -V:gccversion
gccversion='3.3.2';
$ perl -V:config_args
config_args='-de -Dprefix=/usr -Dcccdlflags=-fPIC -Dinstallprefix=/usr -Doptimize=-O3 -march=i486 -mcpu=i686 -Darchname=i486-linux';

##</code><code>##

    # ...
    if (ref $c eq 'CODE') {
	$subcode = "sub { for (1 .. $n) { local \$_; package $pack; &\$c; } }";
        $subref  = eval $subcode;
    }
    else {
	$subcode = "sub { for (1 .. $n) { local \$_; package $pack; $c;} }";
        $subref  = _doeval($subcode);
    }
    # ...
    &$subref;