perl -le "use Date::Manip qw/UnixDate/;print  UnixDate('today','%Y-%m-%d-%H-%M-%S');"

##</code><code>##

2011-09-30-00-00-00