# authentication
  if ($telnet->waitfor('/Username: $/i'))
  {
  $telnet->print($username);
  }

  elsif ($telnet->waitfor('/Password: $/i'))
  {
  $telnet->print($password);
  }

# Wait for the prompt, send "enable" and enable-pwd
  elsif ($telnet->waitfor('/>/'))
  {
  $telnet->print('enable');
  $telnet->waitfor('/Password: $/i');
  $telnet->print($enpwd);
  }
  else
  {
  $telnet->waitfor('/>/');
  $telnet->print('enable');
  $telnet->waitfor('/Password: $/i');
  $telnet->print($enpwd);
}