#!/usr/bin/perl
use strict;
use warnings;
use PDF;

my $pdf = PDF->new("003.pdf");
my $version = $pdf->Version;
my $title = $pdf->GetInfo("Title");
my $author = $pdf->GetInfo("Author");

if ($version){
	print "\nVersion: $version";
}else{
	print "\nVersion: Undefined";
}
	
if ($title){
	print "\nTitle: $title";
}else{
	print "\nTitle: Undefined";
}

if ($author){
	print "\nAuthor: $author\n";
}else{
	print "\nAuthor: Undefined\n";
}