#!/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 ;