Select Code to Download

#!/usr/bin/perl 
...
my $gs  = $contentTree->computeGS;
print Dumper($gs):
close STDOUT;

perl gscript.pl /path/to/pdf

#!/usr/bin/perl -w

...
my $p = HTML::Parser->new( api_version => 3 );
$p->handler( default => \&h, "event, line, column, text, tagname, attr
+" );
$p->parse_file( @ARGV ? shift : *STDIN );

perl hdump /path/to/gs.log