#!/usr/bin/perl
use Date::Manip;
print UnixDate( ParseDate( "today" ), "%Y %m %d" ), "\n";