#!/usr/bin/perl
$smtp = Net::SMTP->new("mailserver",
Debug => 1,
);
$smtp->mail($ENV{"user1"});
$smtp->recipient("user2");
$smtp->data();
$smtp->datasend("\n");
$smtp->datasend("Testes. 1... 2... uh, 3...\n");
$smtp->dataend();
$smtp->quit;
####
-><-