use Mail::Sendmail;

%mail = ( To      => 'admin@test.local', # кому письмо

From    => 'ciscobackup@test.local', # от кого

Message => "Backup was finished with result:".$result, # текст сообщения

    SMTP    => 'smtp.mail.ru' # SMTP рестранслятор

    );

sendmail(%mail) or die $Mail::Sendmail::error;

Приведем полный текст данного сценария.

Листинг 3. Полный текст сценария

use Net::Telnet ();

    use Mail::Sendmail;

    $t = new Net::Telnet ;

    $hostname=”10.0.1.11”;

    $t->open($hostname);

    $t->waitfor('/login:.*$/')

       or die "bad login: ", $t->lastline;

    $t->print("user");

    $t->waitfor('/Password:.*$/')

       or die "bad password: ", $t->lastline;

    $t->print("password");

    $t->waitfor('/Router>:.*$/')

       or die "No router user mode: ", $t->lastline;

    $t->print("enable");

    $t->waitfor('/login:.*$/')

       or die "bad login: ", $t->lastline;

    $t->print("user");

    $t->waitfor('/Password:.*$/')

       or die "bad password: ", $t->lastline;