#!/usr/bin/perl

# $Id: template.pl 1.13 2022/05/13 12:17:31 bernie Exp $

use v5.10 ;
use strict;
use warnings ;
use Getopt::Std ;  # getopts(<flags>, \%args) ;
my %args ;

use PDF;

my $pdf = PDF->new("test.pdf") or die "";
say "is a PDF" if $pdf->IsaPDF ;
say "Has ".$pdf->Pages." Pages" ;
exit ;

##</code><code>##

D:\Desktop>pdftest
Premature end of file reached at D:\Desktop\pdftest.pl line 13.
Bad object reference '' at D:\Desktop\pdftest.pl line 13.
Bad object reference '' at D:\Desktop\pdftest.pl line 13.
Bad object reference '' at D:\Desktop\pdftest.pl line 13.
is a PDF
Use of uninitialized value in concatenation (.) or string at D:\Desktop\pdftest.pl line 15.
Has  Pages