download and mail a web page

mailpage

#!/usr/bin/perl -w

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

my $from = shift;
my $to = shift;
my $url = shift;
my $title = shift;

my $mech = WWW::Mechanize->new();
$mech->get($url);

my $html = $mech->content;
my $base = $mech->base;

$html =~ s|</head>|'<base href="'.$base.'"></head>'|eigs;

my $msg = MIME::Lite->new (
    From      => $from,
    To        => $to,
    Subject   => $title,
    Type      => 'multipart/mixed');

$msg->attach (
    Type => 'text/html',
    Data => qq{$html});

MIME::Lite->send('smtp', 'localhost', Timeout=>60);
$msg->send;