Select Code to Download

use Image::Grab qw/grab/;

...
$pic->url('http://upload.wikimedia.org/wikipedia/commons/1/1a/Image_up
+load_test.jpg')
$pic->grab;
my $imgdata = $pic->image;