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