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