#!/usr/bin/perl

use strict;
use warnings;
use MongoDB;

$db_host="xxx.xx.xx.xxx";  #Removed ip for security purposes
my $client     = MongoDB::MongoClient->new(host => $db_host, port => 27017);
my $database   = $client->get_database( 'ravi' );
my $collection1 = $database->get_collection( 'collection' );
my $removed1 = $collection1->remove({'Date'=>{'$lt'=>"14-03-2015"}});
print "\n$removed1";