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

##</code><code>##

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