in reply to Date displaying the 0's

Hi, try this one

use Time::Piece; my $t = localtime; print $t->ymd;