sendWebpageByEmail.pl

#!/usr/bin/perl
#
#Fetches a webpage and sends a copy via html email
#
# this is some very old stuff... used it to send my hockey team schedule to the players
#

use strict;
use MIME::Lite;
use LWP::Simple;

#specify webpage url
my $pageURL="http://www.inmansportsclub.com/cgi-bin/lgestat/league.cgi?a=league&a2=sche&a3=team&l=8599568189&t=882647";;

#fetch webpage
my $simplePage=get($pageURL);


# SendTo email id
my $email = 'me@joet3ch.com';
my $email2 = 'player@netscape.net';
my $email3 = 'player@aol.com';
my $email4 = 'player@gmail.com';
my $email5 = 'player@earthlink.net';
my $email6 = 'player@comcast.net';

# create a new MIME Lite based email
my $msg = MIME::Lite->new
(
Subject => "Black Magic Schedule",
From    => 'player@joet3ch.com',
To      => $email,
To      => $email2,
To      => $email3,
To      => $email4,
To      => $email5,
To      => $email6,
To      => $email7,
Type    => 'text/html',
Data    => $simplePage
);

$msg->send();