Select Code to Download

use B::Deparse;

...
$VARNAME='$var';

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

{
    $TST::var;
}