#!/usr/bin/perl

print qq|Content-Type: text/html \n\n|;

use Image::IPTCInfo;

my $file = '/home/www/images/test/nova-1.jpg';

                    my $k = Image::IPTCInfo->new( $file ); # || die Image::IPTCInfo::Error(); 
#				    my $info = new Image::IPTCInfo('file-name-here.jpg');

				  # Check if file had IPTC data
					  unless (defined($k)) { die Image::IPTCInfo::Error(); }

					print "DATE WAS: " . $k->Attribute( 'date created' );
print "END";