in reply to Date YYYYMMDD format
use DateTime; print DateTime->now(time_zone => "local")->ymd(''); [download]
-sam