#!perl -w
use strict;
use Text::PDF::File;

if (@ARGV) {
    for my $file (@ARGV) {
        if ( -r $file ) { print gettitle($file), "\n" }
    }
}
elsif ( $^O =~ /Mac/ ) {
    chomp( my $pwd = `pwd` );
    my $file = MacPerl::Ask( "Input file:", $pwd );
    if ( -r $file ) { print gettitle($file), "\n" }
}
else {
    die "no input, no output\n";
}

sub gettitle {
    my $pdffile = shift;
    my $pdf     = Text::PDF::File->open($pdffile) || die;
    my $info    = $pdf->{'Info'}->val;
    my $title   = $info->{'Title'}->val;
}