perl -MDate::Calc -e '$,=" "; print @{[Date::Calc::Time_to_Date()]}, "\n", qx"date", "\n"'