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

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