use Time::Format qw/%time/;

my $time = $time{'yyyymmddhhmmss'};
print $time;