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