use Image::Info;
my $info = Image::Info->image_info("Fig2.jpg");
if (my $error = $info->{error}) {
die "Can't parse image info: $error\n";
}
my $color = $info->{color_type};

my $type = Image::Info->image_type("D:\\ARUN\\Programs\\PERL_RELEASE\\IMAGE_CHECK\\V_Tool\\MIXED\\Fig_1.jpg");
if (my $error = $type->{error}) {
die "Can't determine file type: $error\n";
}
die "No gif files allowed!" if $type->{file_type} eq 'GIF';