my $pdf = PDF->new("0001.pdf");
print Dumper($pdf);

##</code><code>##

$PDF::Verbose = 1;