use Image::IPTCInfo;

my $info = new Image::IPTCInfo("../testimage.jpg");

my @keywordsRef = $info->Keywords();

foreach $keywordsRef (@keywordsRef) 
{
  print "$keywordsRef\n";
}