How to show Exif Informations from JPEG file.

exif.pl

#!/usr/bin/perl

use strict;
use warnings;
use Image::ExifTool;
use Data::Dumper;

my $filename = $ARGV[0];
my $ext = new Image::ExifTool;
my $exif = $ext->ImageInfo($filename);

print Dumper $exif;