#!/usr/bin/perl

use LWP::UserAgent;
use strict;


my $file="http://127.0.0.1/1.jpg";

my $ua = LWP::UserAgent -> new;
$ua -> get("$file", ':content_file' => "new.jpg");