#!/usr/local/bin/perl
system("cls");

$mail_to = ... #sorry, I won't give you my mail so easily
$my_host = ... #once again, I'm not quite sure I should give you that

    use Net::SMTP;

    $smtp = Net::SMTP->new('$my_host');

    $smtp->mail($ENV{USER});
    $smtp->to($mail_to);

    $smtp->data();
    $smtp->datasend("To: $mail_to\n");
    $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();

    $smtp->quit;

print "Hello World!\n";