#!/usr/bin/perl use strict; use warnings; use Image::Magick; my $file = '[input_file_path]'; my $img = Image::Magick->new; my $result = $img->Read($file); $result = 'OK' unless $result; print < result Result:$result EOF