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