Help for this page

Select Code to Download

Select or download this

use strict;
use Tk;
...
                 -width => 300);

MainLoop;

Select or download this

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