Select Code to Download

#!/usr/bin/perl              
use Devel::Peek;             
...
        Dump($b), ".\n";
print "--- after print ---\n";
Dump($b);

--- before building t ---
SV = RV(0x81df0cc) at 0x81df0c0
...
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)