1use Image::Grab; 2use Cwd; 3eval {require Digest::MD5}; 4if($@) { 5 eval {require MD5}; 6 if($@) { 7 print "1..0\n"; 8 exit; 9 } 10} 11print "1..1\n"; 12 13my $image = new Image::Grab; 14 15my $pwd = cwd; 16$ENV{DOMAIN} ||= "example.com"; # Net::Domain warnings 17$image->url("file:" . $pwd . "/t/data/perl.gif"); 18 19$image->grab; 20 21if($image->md5 eq "8065abdcf39da2554592d847d7901e4a") { 22 print "ok 1\n"; 23} else { 24 print "not ok 1\n"; 25} 26 27