Perl

С недавних пор я полюбил Perl :)

Отправка почтового сообщения (HTML)

#!C:\Perl\bin\perl.exe -w
use Net::SMTP;

$mail_to = 'to@mail.com';
$my_host = 'mail.com';

$smtp = Net::SMTP->new($my_host);
$smtp->mail('From <from@mail.com>');
$smtp->to($mail_to);
$smtp->data();
$smtp->datasend("Content-Type: Text/html; charset=cp1251; format=flowed");
$smtp->datasend("From: From <from@mail.com>\n");
$smtp->datasend("Subject: hello\n");
$smtp->datasend("To: $mail_to\n");
$smtp->datasend("\n");
$smtp->datasend("<center><b>Hello guys!</b>\n");
$smtp->dataend();
$smtp->quit;