Help for this page

Select Code to Download

Select or download this

use Data::Dumper;
{ my %x = (background => 'red');
...
  print Dumper(\%x), "\n" }
# $VAR1 = { '-background' => 'green',
            'background' => 'red' };

Select or download this

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