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

print Dumper $info;