Net::SMTP=GLOB(0x3d1148)>>> DATA
Net::SMTP=GLOB(0x3d1148)<<< 354 Start mail input; end with <CRLF>.<CRLF>
Net::SMTP=GLOB(0x3d1148)>>> From: root@domain.dom
Net::SMTP=GLOB(0x3d1148)>>> To: user@domain.dom

##</code><code>##

$smtp->datasend("From: $sender");
$smtp->datasend("To: $recipient");

##</code><code>##

$smtp->datasend("From: $sender\n");
$smtp->datasend("To: $recipient\n");