make datetime string like "20080720192345"

makedate

##-- makedate: 日付文字列の作成
sub makedate {
    my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=(localtime);

    sprintf( "%04.4d%02.2d%02.2d%02.2d%02.2d%02.2d",
            1900+$year,$mon+1,$mday,$hour,$min,$sec);
}