#!/usr/local/bin/perl

use Socket;

$pagermail="xxxxxx@xxxxxxxx.ru";

$pagersmtp="XX.XX.XX.XX";

 $from='server@yyyyyyyy.ru';

 $subject ='Server power fail!';

 $date = localtime time;

########### Send to pager ###########

socket(SMTP, PF_INET(), SOCK_STREAM(),6);

connect(SMTP,sockaddr_in(25,inet_aton($pagersmtp)));

recv(SMTP, $buffer, 200, 0);

send(SMTP, "HELO pasha ",0);

recv(SMTP, $buffer, 200, 0);

send(SMTP, "MAIL FROM: <$from> ",0);

recv(SMTP, $buffer, 200, 0);

send(SMTP, "RCPT TO: <$pagermail> ",0);

recv(SMTP, $buffer, 200, 0);

send(SMTP, "DATA ",0);

recv(SMTP, $buffer, 200, 0);

send(SMTP, "From: $from ",0);

send(SMTP, "To: $pagermail ",0);

send(SMTP, "Subject: $subject ",0);

send(SMTP, "Mime-Version: 1.0 ",0);

send(SMTP, "Content-Type: text/plain; charset=koi8-r ",0);

send(SMTP, "Content-Transfer-Encoding: 8bit ",0);

send(SMTP, " ",0);

send(SMTP, "Power failure. System going to  gеренос строки

poweroff in 10 minutes. $date ",0);

send(SMTP, " . ",0);

recv(SMTP, $buffer, 200, 0);

#print "SMTP answer on message to pager: $buffer ";

send(SMTP, "QUIT ",0);