Select Code to Download

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