#!/usr/bin/perl
use CGI;
use LWP;
use LWP::Simple;
use LWP::UserAgent;

$ua = new LWP::UserAgent;
$q = new CGI;
$url = "http://10.50.1.1/pics/topbanner1.gif";
$req= HTTP::Request->new(GET => $url);
$page = $ua->request($req);

if ($page->is_success) {
    print q->header(-type => image/gif),
          $page->content;
} else {
    print $q->header(-status => 404),
          $q->h1('Not Found'),
          $q->p($page->error_as_HTML),
          $q->end_html;
}