if ($tao = 'great') {
              $^O = 'great';
      }
##</code><code>##


__SIG__
printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::svref_2object(sub{})->OUTSIDE