Message => "Backup was finished with result:".$result,

          SMTP    => 'smtp.mail.ru'

           );

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

        exit;

    } # end main program

    sub spawn {

        my(@cmd) = @_;

        my($pid, $pty, $tty, $tty_fd);

        use IO::Pty ();

        $pty = new IO::Pty

            or die $!;

        unless ($pid = fork) {  # child process

            die "problem spawning program: $! " unless defined $pid;

            use POSIX ();

            POSIX::setsid

                or die "setsid failed: $!";

            $tty = $pty->slave;

            $tty_fd = $tty->fileno;

            close $pty;

            open STDIN, "<&$tty_fd" or die $!;

            open STDOUT, ">&$tty_fd" or die $!;

            open STDERR, ">&STDOUT" or die $!;

            close $tty;

            exec @cmd

                or die "problem executing $cmd[0] ";

        }

        $pty;

В завершении данной темы хотелось бы отметить, что эти сценарии также можно использовать и для выполнения других задач на удаленных устройствах. Например, если нам необходимо выполнить обратное действие, заменить рабочую конфигурацию на ее копию с TFTP-сервера, но мы не можем это сделать в рабочее время в связи с загруженностью сети, то наш сценарий выполнит задачу в нужное время. Для этого достаточно указать команду «copy tftp running-config».