my ($bwlogin,$bwpass,$bwenable) = split (/,/,$pass{$type});
   $telnet->print($bwlogin);
   $telnet->waitfor('/Password: $/i');
   $telnet->print($bwpass);
   my ($pre,$match) = $telnet->waitfor(Match => '/>$/i',
                                       Match => '/Login incorrect/');
   $match =~ />/ or return warn "Logon failed for $host \n";  
   $telnet->print("enable");
   $telnet->waitfor('/Password:$/i');
   $telnet->print($bwenable);
   ($pre,$match) = $telnet->waitfor(Match => '/#$/i',
                                    Match => '/\% authentication failed/');
   $match =~ /#/ or return warn "Enable failed for $host \n";  
   while ($telnet->print("show run")){
      ($pre,$match) = $telnet->waitfor(Match => '/\-\-More\-\-$/i',
                                       Match => '/#$/i');
      if ($match =~ /\-\-More\-\-/){
         $telnet->print(" ");
      }
      if ($match =~ /#/){
         $telnet->print("exit");
      }
   }
 }