Count pages in PDF

with Perl.

#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
use File::Basename;

if ((@ARGV) open($file) or die "Not a PDF.";
    };
    if ($@) {
        printf("%-50s: not a PDF.\n", $file);
        return;
    }
    printf("%-50s: %3d pages.\n", $file, $pdf->pages());
}

sub usage {
    print "Usage: ".basename($0)." files\n";
    exit(1);
}