sub mysub
{
    print "in mysub: $var\n";
    print eval("$var"), "\n";
}