use DateTime ();
use DateTime::Format::Strptime ();
print DateTime::Format::Strptime
	->new(pattern => '%Y-%m-%d %H:%M:%S.%3N')
	->parse_datetime('2012-01-31 00:00:00.000')
	->truncate(to=>'day')
	->compare( DateTime->today );
# compare returns 0 if they're equal