#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Headers;
my @list;
my ($name, $url, $pic);
my $refurl = 'http://www.kingfeatures.com';
my %cartoon;

open FH, ">zippy.gif";
binmode FH; # necessary to convert pictures streamed to graphics

my $bot = new LWP::UserAgent;
my $stream = new HTTP::Request( GET => "http://www.kingfeatures.com/features/comics/mutts/aboutMaina.php"
#                                Referer => $refurl
                                );
$pic = $bot->request($stream);
print "$pic->content($stream)\n" if $pic->is_success;
print FH $pic;
close FH;