Help for this page

Select Code to Download


  1. or download this
    my $router = new Net::Telnet::Cisco(Host => $ip);
my @output = $router->cmd("sh users");
print @output;
  2. or download this
    $router->cmd("terminal length 0");
  3. or download this
    $router->cmd("terminal length 0");
$router->cmd("terminal length 0");
my @output = $router->cmd("sh users");
print @output;
  4. or download this
    foreach my $server (@SERVERS) {
        my ($sname,$sdom);
...
        close ROUTER;

}