if so replace the line

$ua = LWP::UserAgent->new;

 with 

$ua = LWP::UserAgent->new(
agent => "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" ,
);
[download]