#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.mail.ru'); # Ваш сервер!
$smtp->mail('joe@mail.ru');
$smtp->to('frank@mail.ru');
$smtp->data();
$smtp->datasend("To: frank@mail.ru\n");
$smtp->datasend("From: joe@mail.ru\n");
$smtp->datasend("Subject: Hello\n");
$smtp->datasend("Return-Receipt-To: joe@mail.ru\n");
$smtp->datasend("\n");
$smtp->datasend("Hello ADMIN!!!!!! :-)\n");
$smtp->dataend();
$smtp->quit;