#!perl


use strict;
require HTTP::Request;
require URI::URL;
require LWP::UserAgent;

sub GetURL;
my @Page;


@Page = GetURL( "http://localhost/apache_pb.gif");

open (WRITE,">image.gif");
foreach (@Page)
	{
	print WRITE $_;
	}
close (WRITE);



sub GetURL
{
  my ($inURL) = @_;
  my ($ua, $request, $response);

  $ua = new LWP::UserAgent;
  $request = new HTTP::Request 'GET', $inURL;
  $response = $ua->request($request);
   
  if ($response->is_success) {
    return $response->content;
  } else {
    return $response->error_as_HTML;
  }
}