[kia@home bin]$ perl -le "use Date::Manip qw/UnixDate/;print  UnixDate('today','%Y-%m-%d-%H-%M-%S');"
2011-09-30-08-39-24