#!usr/bin/perl

 use MongoDB;
 use MongoDB::Database;
 use MongoDB::OID;
 
 
 my $conn = MongoDB::Connection->new;
 my $db = $conn->test;
 my $users = $db->testlogwiki;

	
 $users->insert
(
	{
	"product" => "WooHoo",
        "errcode" => "WM2001_89873",
 	"solution1" => "Hit the computer.",
        "line_text" => "Inserted in Perl too"
	}
);