Select Code to Download

 use strict;
 use warnings;
...
 print "Is a pdf file\n" if ( $pdf->IsaPDF ) ;
 print "Has \"",$pdf->Pages,"\" Pages \n";
 print "Use a PDF Version  \"",$pdf->Version ,"\" \n";