Select Code to Download

use warnings;
use strict;
...
print eval('$$var'.$transf),"\n";      # prints 9
path('third')->spew('$$var'.$transf);
print do('third'),"\n";                # prints 6