use Net::SMTP;

$smtp = Net::SMTP->new('smtp.mtu-net.ru');
$smtp->mail( 'billgates@microsoft.com' ); 
$smtp->to('stevejobs@apple.com');
$smtp->data(); 
$smtp->datasend('To: stevejobs@apple.com\n');
$smtp->datasend('From: billgates@microsoft.com\n');
$smtp->datasend("\n");
$smtp->datasend("Microsoft\n");
$smtp->dataend();               
$smtp->quit;