opendir DIR, '.';

my @pdf = sort { $a->{Title} cmp $b->{Title} }
          map  { scalar( get_info($_) )      }
          grep { /\.pdf/i && -f $_           }
          readdir DIR;

sub get_info {
	# Get basic PDF metadata.
	my $file = shift;
	my %info;
	
    my $pdf = PDF->new($file);
	
	return undef unless $pdf->IsaPDF;
	
	$info{Filename} = $file;
	$info{Size}     = -s $file;
	$info{Pages}    = $pdf->Pages;
	for (qw(Title CreationDate ModDate)) {
		$info{$_} = $pdf->GetInfo($_)
	}
    return( wantarray ? %info : \%info );
}

##</code><code>##

print "$_->{Title}\n" for @pdf;