use Date::Calc qw/Today_and_Now/;
my $stamp = sprintf '%04d%02d%02d%02d%02d%02d', Today_and_Now();