my $telnet_session = new Net::Telnet (Timeout => 10);
#  $telnet_logfile && $telnet_session->input_log($telnet_logfile);
  $telnet_session->errmode('return');
  $telnet_session->open("192.168.12.2") or return $telnet_session;
  $telnet_session->waitfor('/Username: $/') or return $telnet_session;
  $telnet_session->print($username);
  $telnet_session->waitfor('/Password: $/') or return $telnet_session;
  $telnet_session->print($ro_pass);
  $telnet_session->waitfor('/ap.*>$/i') or return $telnet_session;
  $telnet_session->print('enable');
  $telnet_session->waitfor('/Password: $/') or return $telnet_session;
  $telnet_session->print($en_pass);
  $telnet_session->waitfor('/ap.*\#$/i') or return $telnet_session;
$telnet_session->send('reload');
 $telnet_session->waitfor('/System configuration has been modified. Save? [yes/no]:$/') or return $telnet_session;
$telnet_session->print('yes');
$telnet_session->waitfor('/Proceed with reload? [confirm] $/') or return $telnet_session;
print"rebooted";
#  return $telnet_session;