$currentDate = `date "+%Y_%m_%d"`; $currentDate =~ s/\s/ /g; chop($currentDate); [download]
In reply to How to substract date in perl? by ferum