#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use MIME::Lite;

#Create new WWW::Mechanize Object to fetch the web page
my $mech = WWW::Mechanize->new();

#Fetch the page. The example is http://www.deviantart.com/
#but that could be replaced with anything
$mech->get( "http://www.deviantart.com/");

#Assign the page content to a scalar
my $message_body = $mech->content;

#Create the MIME::Lite Object to send the email to
my $msg = MIME::Lite->new (
  From      => 'someone@somedomain.com',
  To        => 'someone@somedomain.com',
  Subject   => 'Daily DeviantART Digest',
  Type      => 'multipart/mixed',
) 

#Attach the body part of the email which is the actual web page
$msg->attach (
 Type => 'text/html',
 Data => qq{$message_body},
)

#This sends the email via the local smtp server. I chose this
#method so that it could be changed to a remote server if
#needed but per the MIME::Lite documentation, this can
#also be changed to send through the sendmail executable
MIME::Lite->send'(smtp', 'localhost', Timeout=>60);
$msg->send;
[download]