$url = new URI::URL($urls); $req = new HTTP::Request('GET', $url, $hdrs); $ua = new LWP::UserAgent; $resp = $ua->request($req); if ($resp->is_success) { open(IMAGE, ">../../img/$filename") or die "$!"; binmode IMAGE; print IMAGE $resp->content; }