#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
use Data::Dumper;

my $FName = shift // die "Missing filename!";
my $pdf = PDF::API2->open($FName) or die "Can't open PDF file $FName: $!";
my %pdfinfo = $pdf->info;
print "Author is: ", $pdfinfo{Author}, "\n";
print "Title is:  ", $pdfinfo{Title}, "\n";
print "\n\nAll info tags:\n", Dumper(\%pdfinfo);