{ local *foo = sub : lvalue { print "wuff: $foo\n"; $foo }; }