##

#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;
use Image::Info qw(image_info dim);

my $data = get("http://www.learntogoogle.com/images/addform.jpg");

# this will print binary junk 
#print "$data\n"; 

my $info = image_info( \$data );
  if (my $error = $info->{error}) {
           die "Can't parse image info: $error\n";
       }
my($w, $h) = dim($info);

print "$w $h\n";