$identica->update(status => "Playing with !perl and Net::Identica")