use B::Deparse;

package TST;
our $var;

package main;


$VARNAME='$var';

print B::Deparse->new()->coderef2text(eval "sub { $VARNAME }" );

##</code><code>##

{
    $TST::var;
}