my $sef1=$mw1->BrowseEntry(-variable=>\$it1,-width=>22, -state=>'readonly', -browsecmd=>\&tura)->place(-x=>250,-y=>53);
sub tura{
	my $client=MongoDB::MongoClient->new("host"=>"10.9.602.179:27017");
	my $db=$client->get_database("test");
	my $col_tura=$db->get_collection('atco_data')->find({"unit_id" => "1" , "nume"=>"$it1"}, {"tura"=>1}); 
	my @cursor_tura=$col_tura->all;
	my $tura=$cursor_tura[0]->{'tura'};
	print "$tura\n";
	}