Help for this page

Select Code to Download


  1. or download this
    perl -MPadWalker=peek_my 
-e"my $x = 42; sub { my $closed_over = $x; sub { peek_my 0 } }->()->()
+"
  2. or download this
    20100327204831.321 file.pl(87): Received '...' from socket:0xdeadbeef
  3. or download this
    20100327204831.321 file.pl(87): $buf = '...';