use File::Path;
mkpath( "$year:$mon:$mday/$hour:$min:$sec" );