use strict;
use warnings;
use Image::ExifTool ':Public';

my @PDFAuthors = (
    "Michael L. Oldham",
    "Dheeraj Khare",
    "Florante A. Quiocho",
    "Amy L. Davidson",
    "Jue Chen"
);
my %StdPDFattrs = (
    Description => "XXX 450, 515 (2007). doi:10.1038/XXX06264",
    Format => "application/pdf",
    Publisher => "XXX Publishing Group",
    Rights => " 2007 XXX Publishing Group",
    Charset => 'Latin',
    Title => "Crystal structure of a catalytic intermediate of the maltose transporter",
    Producer => "Acrobat Distiller 6.0.1 (Windows)",
    Cpyrt => " 2007 XXX Publishing Group",
    Identifier => "10.1038/XXX06264",
    EIssn => "1476-4687",
    EndingPage => "521",

<<<SNIP>>>

);

<<<SNIP>>>

my $exifTool = new Image::ExifTool ':Public';
$exifTool->SetNewValue();

for my $Author (@PDFAuthors) {
    ($success, $errStr) = $exifTool->SetNewValue('Creator'=> $Author, AddValue => 1);

    #print "Success: $success\n";
    #print "Error $errStr\n";
}

for my $Attribute (keys %StdPDFattrs) {
    $exifTool->SetNewValue( $Attribute, $StdPDFattrs{$Attribute} );
}

<<<SNIP>>>