use strict;
	use warnings;
	use PDF;
	
	my $pdf = PDF->new("0001.pdf");
	my $version = $pdf->Version;
    my $title = $pdf->GetInfo("Title");
    my $author = $pdf->GetInfo("Author");
    print "$version\n$title\n$author\n";
  
	
##</code><code>##

	 
Premature end of file reached at valid.pl line 5

Bad object reference '' at valid.pl line 5
Bad object reference '' at valid.pl line 5
Bad object reference '' at valid.pl line 5
Use of uninitialized value in concatenation (.) or string at valid.pl line 9.
Use of uninitialized value in concatenation (.) or string at valid.pl line 9.
1.6