#!/usr/bin/perl -w
require LWP::UserAgent;
require HTTP::Request;
require HTTP::Headers;

my $UserAgent = new LWP::UserAgent;
my $hdr1 = new HTTP::Headers;
my $target = $ARGV[0];
print "Looking for $target\n";
$UserAgent->agent('Mozilla/2.0 (compatible; MSIE 3.02; Update a; AK;
Windows 95)');
$hdr1->header(Connection => 'Keep-Alive', 
			     Host => 'www.soldionline.it', 
			     Accept => 'image/gif, image/x-xbitmap,image/jpeg, image/pjpeg, */*',
			     Referer => 'http://www.soldionline.it');
my $request = new HTTP::Request('GET',$target, $hdr1);
my $response = $UserAgent->request($request);
print $response->as_string;
