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