#!/usr/bin/perl

use Net::SMTP;


$smtp = Net::SMTP->new('smtp.cs.wisc.edu');

$smtp->mail('mick@cs.wisc.edu');
$smtp->to('mick@cs.wisc.edu');

$smtp->data();
$smtp->datasend("To: mick\@cs.wisc.edu\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();

$smtp->quit;
