use Date::Format;

my $time = strftime "%Y%m%d%H%M%S", @{[localtime]};
print $time;