#!/usr/bin/perl

use strict;
use warnings;
use MongoDB;
use DateTime;

my $today = DateTime->now;
my $stamp = DateTime->now->set(
    'timestamp' => $today->day,
);

my $database = '/tmp/collection';
$database->update(
    {'host' => '127.0.0.1'},
    {'set' => {"timestamp" => 'new'}},
    {'multiple' => 1, 'safe' => 1}
);