use LWP::Simple q/getprint/;

my $html = getprint 'http://www.iran-news.com/asp/view_iran.asp?Id=INTERNATIONAL&id2=INTERNATIONAL00.jpg';