Юзай Net::SMTP и включи дебаг - он тебе все и выведет.
#!/usr/bin/perl -w
use Net::SMTP;
$smtp = Net::SMTP->new(\'tvoy_smtp_host\', Timeout => 30,Debug => 1);
$smtp->mail(\'from@from.ru\');
$smtp->to(\'to@to.ru\');
$smtp->data();
$smtp->datasend("To: [email]to@to.ru[/email]\\n");
$smtp->datasend("\\n");
$smtp->datasend("message body\\n");
$smtp->dataend();
$smtp->quit;