$\ = "\n";
*t = sub{ print 42 }; *t = \'fred'; *t = [ 1,2,3];
print $];
{
    local *t = sub { print 'changed' };
    print join "\n", t(), $t, "@t";
};