#!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"
	}
);

##</code><code>##

"_id" : ObjectId("4fc62c2900ece6040c000000"),
"solution1" : "Hit the computer.",
"product" : "WooHoo",
"errcode" : "WM2001_89873",
"line_text" : "Inserted in Perl too"