my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdist) =
     gmtime(time);
     
     $min++;
     $hour++;
     $mday++;
     $sec++;
     $mon++;
     $year++;
     
my $count = 0;
     
my @mkdir = ( "$year:$mon:$mday", "$hour:$min:$sec");