Mediant 800> help
Use '?' in order to show available commands. 'TAB' can
 completion
Use 'list' to see all available commands
Mediant 800>
  enable               Turn on privileged commands
  exit                 Exit from current mode
  help                 Show available commands
  history              Show a list of previously run co
  list                 Available command list
  nslookup             resolve host name
  ping                 Ping packets
  pwd                  Display current configuration mo
  quit                 Disconnect
  show                 Show running system information

##</code><code>##

$telnet->print('show running-config');
while( my $line = $telnet->getline() )
    {
push @lines, $line;
$match = $telnet->waitfor(Match => '/\-\-More\-\-$/i');
      if ($match =~ /\-\-More\-\-/){
         $telnet->print(" ");
      }
}