my $ua  = LWP::UserAgent->new;
my $req = HTTP::Request->new(
            GET => 'http://192.168.0.100:80/',
            [Host => 'server1'],
            );
my $res = $ua->request($req);
[download]