авто сохранение конфигов BDCOM

для начала установим необходимые утилиты

apt-get install perl mc screen mysql-client

perl -MCPAN -e 'install Net::Telnet'

perl -MCPAN -e 'install DBI'

perl -MCPAN -e 'install DBD::mysql'

cat ./bdcom_save.pl 
#!/usr/bin/perl

use Net::Telnet;
use strict;
use locale;
use POSIX;
setlocale(LC_ALL, 'C');

my $host='10.95.95.5';
my $login='login';
my $password='pass';
my $file = "/opt/$host.log";
my $t = new Net::Telnet(Timeout => 1, Telnetmode => 0, Errmode => "return", Input_log => $file);

    $t->open(Host => $host);
    $t->waitfor('/login:/i');
    $t->print($login);
    $t->waitfor('/password:/i');
    $t->print($password);
    $t->waitfor('/#:/i');
    $t->print('enable');
    $t->waitfor('/#:/i');
    $t->print('write');
    $t->waitfor('/#:/i');
    $t->print('exit');
    $t->waitfor('/#:/i');
    $t->print('exit');

в папке /opt будут писаться файлы log где можн оувидеть что происходило.