Help for this page

Select Code to Download


  1. or download this
    my $hideLetter;
my $restoreLetter;
...
$canvas->pack( -expand => 'yes',
           -fill => 'both' );
MainLoop();
  2. or download this
    __SIG__
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;