Telnet é um programa para acessar consoles de texto em servidores. Você pode criar um script Perl que liga automaticamente para um servidor Telnet com nenhum usuário - entrada para que ele possa executar comandos automaticamente . Infelizmente, você não pode chamar o comando Telnet diretamente de dentro de um script Perl porque só aceita comandos do console. Repositório oficial módulo CPAN do Perl contém o módulo Net :: Telnet , que implementa o protocolo Telnet e permite adicionar funções de Telnet para o seu script Perl. Instruções
1

Clique em " Iniciar", " Todos os Programas", " Acessórios " e
2

Instalar Net :: Telnet digitando " perl " Prompt de comando ". - MCPAN -e 'install Net :: Telnet " no prompt de comando e pressionar" Enter ".
3

Notepad Abrir ou seu editor de código favorito.
4

Copie e cole o seguinte texto no editor de texto :

use Net :: Telnet ;

$ telnet = new Net :: Telnet ( Timeout = > 10,

Errmode => ' morrer ' em

Prompt => ' /\\ $ $ /i ');

$ telnet -> open (' telnet.website.com ') ;

$ telnet -> login ( 'username' , 'password' );

print $ telnet -> cmd ( "quem" );
5

Substitua " telnet.website.com " com o endereço do site ou o IP do servidor Telnet, "username" com o nome de usuário do servidor Telnet requer e "password" com a senha do nome de usuário no servidor Telnet.
< br comandos > 6 Tipo

outro Perl que você deseja que o script Telnet para executar depois que ele se conecta ao servidor Telnet.
7

Salve o script Perl , clicando em " Arquivo" e " Salvar ", digitar um nome para o script e pressionar "Enter ".