How to get "Var1" value of dumper in perl

Question

When i use below code then it gives output, But i want "width", "file_media_type", "file_ext" values, But I am unable to get this value in individual. I am very new with Perl Please help me!

Code

use warnings ;
use strict;
use Image::Info qw[image_info];
use Data::Dumper;

my $file = 'd:\perl\test\a.jpg';
my $info = Dumper(image_info($file));
print $info;

Output

$VAR1 = {
          'width' => 45,
          'file_media_type' => 'image/png',
          'file_ext' => 'png',
          'PNG_Chunks' => [
                            'IHDR',
                            'gAMA',
                            'cHRM',
                            'IDAT',
                            'IEND'
                          ],
          'Chunk-cHRM' => '  z%  Çâ  ·   ÇF  u0  O`  :ù  ?o',
          'PNG_Filter' => 'Adaptive',
          'color_type' => 'RGB',
          'height' => 20,
          'Gamma' => '0.45454',
          'resolution' => '1/1',
          'SampleFormat' => 'U8',
          'Compression' => 'Deflate'
        };

Answer 1

image_info($file) returns a hash reference. Looking at the dump you know the keys available (the keys are strings before =>)

    $info = image_info($file);

    foreach my $key ( qw/width file_media_type file_ext/ ){
        print "$key:$info->{$key}\n";
    }