#!/usr/bin/perl -w
use strict;
use MongoDB;
use MongoDB::Connection;
use MongoDB::Database;
# mongodb
my $conn = MongoDB::Connection->new(host => '127.0.0.1:27017',								query_timeout => 1000 * 6000);
my $db = $conn->ygzj_dev;
print "$db";