... kV�RFM�N�I"*#��VZH��F$2��T��PWPR�j{�#�8H�RW X��j � ��
�L !.x �2�)C�����4�Ts c��"ى�Yv�9+V�� ���0�VOi8��>��Z@
)�k�i�nH�&��� ...

##</code><code>##

#!/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) {
    $pic=$page->content;
    print $q->header,
         $q->start_html('hello world'),
         $q->h1("<img src='$pic'>"),          
         $q->end_html;
} else {
    print $q->header,
         $q->start_html($page->error_as_HTML),
         $q->h1($error),
         $q->end_html;
}