Select Code to Download

my $res = $info->{resolution };        
    # NG for .tif and this doesn't work either {resolution res dpi }
print "\t $res\n";      #line 23                     
    # Use of uninitialized value in concatenation (.) or string at pl_
+test\796079.pl line 23.

my $info = image_info($img);
    if (my $error = $info->{error}) {
         die "Can't open image file: $error\n";
    }

print Dumper $info;