use strict;
use utf8;
use Encode;
use MongoDB;
use MongoDB::Connection;
use MongoDB::Database;
use Tkx;
# mongodb
my $conn = MongoDB::Connection->new(host => '127.0.0.1:27017',
									query_timeout => 1000 * 6000);
my $db = $conn->dev;