sub loginDevice {
   my ($name, $password, $enable, $devicename) = @_;
   my ($telnetsession);

   $telnetsession = new Net::Telnet( Timeout => 10, Host => $devicename );
  
   $telnetsession->waitfor('/Username: /');
   $telnetsession->print("$name");
   $telnetsession->waitfor('/Password: /');
   $telnetsession->print("$password");

   $telnetsession->waitfor("/>/");
   $telnetsession->print("enable");
   $telnetsession->waitfor('/Password: /');
   $telnetsession->print("$enable");

   $telnetsession->prompt('/#|>/');

   $telnetsession->cmd('term len 0');
   return $telnetsession;
}