Perl: MongoDB update

gistfile1

sub update_mongodb {
   if (!Opts::option_is_set('noupdate')) {
      my $client = MongoDB::MongoClient->new(host => $mongohost, port => $mongoport);
      my $database = $client->get_database( $mongodatabase );
      my $db = $database->get_collection( $mongocollection );
      my $mongohash = \%hosthash;
      my $mongoresult = $db->update({ "hostname" => $hosthash{'hostname'} }, $mongohash, { "upsert" => 1} );
      print $mongoresult;
   }
}