#! /usr/bin/perl -w
#use LWP::Simple;
#$url = "http://www.unitedmedia.com/comics/monty/";
#$url = get($url);
#$url =~ /<img src=\"\/comics\/monty\/archive\/images\/(monty\d+\.gif)\"/;
#getstore("http://www.unitedmedia.com/comics/monty/archive/images/$1","../$1");

#$url = "http://www.unitedmedia.com/comics/monty/archive/images/$1";
#print $url;

#send_mail('emailaddy@here.com', 'sender@here.com', 'Your comic', $url);
#
#sub send_mail {
#        my($to, $from, $subject, $body)=@_;
#        my $sendmail="/usr/lib/sendmail -t";
#        open (MAIL, "|$sendmail") || die "Can't start sendmail: $!";
#        print MAIL<<END_OF_HEADER;
#From: $from;
#To: $to;
#Subject: $subject;
#
#END_OF_HEADER
#        foreach ($url) {
#                print MAIL "$_\n";
#        }
#        close(MAIL);
#}