#!perl
use strict;
use warnings;
use Net::SMTP;

sub send_page {
    my ($host, $address, $subject, $message) = @_;
    my $smtp = Net::SMTP->new($host);
    $smtp->mail("sendlog.pl\@localhost");
    $smtp->to("$address");
    $smtp->data();
    $smtp->datasend("To: $address\n");
    $smtp->datasend("Subject: $subject\n");
    $smtp->datasend("$message");
    $smtp->dataend();
    $smtp->quit;
}
1;
[download]