use strict;
use warnings;

use Data::Dumper qw( Dumper );
use Image::Size  qw( imgsize );
use LWP::Simple  qw( get );

my $this_url = "http://images.imagefap.com/images/full/5/190/190037365.jpg";
my $image = get($this_url);
my ($height, $width) = imgsize(\$image);
print "IMG $this_url is $height and $width\n";

__END__
IMG http://images.imagefap.com/images/full/5/190/190037365.jpg is 507 and 760

##</code><code>##

print(defined($image) ? "Ok." : "Error!", "<br>");