#!/usr/bin/perl -w

use strict;
use Date::Calc qw( Today Today_and_Now Date_to_Days Add_Delta_Days );
use CGI qw(:standard);

my $datetime = sprintf("%4d-%02d-%02d %02d:%02d:%02d.000",Today_and_Now());

# prints on this format : 2011-06-08 21:26:23.000