my $procdate = sprintf "%02d%02d%02d%02d%02d%02d", (localtime)[4]+1, (localtime)[3], substr((localtime)[5]+1900,2,2),(localtime)[2], (localtime)[1], (localtime)[0];


##</code><code>##

use POSIX;
my $procdate = POSIX::strftime('%Y%m%d%H%M%S', localtime);