Select Code to Download

my $q = CGI->new;
print $q;
...

# Format is:
# <module-name>=<blessed-reference-type>(0x<hex-memory-location>)

!#/usr/bin/perl -w

...
    $p->handler(text =>
        sub {print map {s/^\s*(.*?)\s*$/$1\n/; $_} grep /\S/, @_}, 'dt
+ext');
}