#!/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;