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