use Image::EXIF;
my $exif = new Image::EXIF("/home/public_html/test/IMG_3212.JPG");

my $image_info = $exif->get_image_info(); # hash reference

foreach my $key (keys %$image_info)
{
   print qq($key : %$image_info{$key}<br>);
}