You may want to try the following:

use LWP::Simple q/getprint/;

my $html = getprint 'http://www.iran-news.com/asp/view_iran.asp?Id=INT
+ERNATIONAL&id2=INTERNATIONAL00.jpg';
[download]

getprint() will print out any errors that you get back. This should help with any troubleshooting.