Select Code to Download

  $ok = $obj->login($username, $password);

  $device_object->login( 'login', "$PASSWORD" ) 
  # Change 'login' to $USERNAME , which you need to pre-populate.
  # No need for quotes around "$PASSWORD".