Et pour le fun et c’est aussi utile :

 use Net::Telnet::Cisco; $ip=$ARGV[0]; $username=$ARGV[1]; $passwd=$ARGV[2]; $ena_pass=$ARGV[3]; print "$ip $username $passwd $ena_passn"; my $session = Net::Telnet::Cisco->new(Host => $ip); $session->login($username, $passwd); # Enable mode if ($session->enable("$ena_pass") ) { # To a router $session->cmd('terminal length 0'); @output = $session->cmd('show running-config'); print "@outputn"; } else { warn "Can't enable: " . $session->errmsg; } $session->close;