Select Code to Download

my $count = 0;
     
...
    chdir "$mkdir[$count]";
    $count ++;
}

my @mkdir = ( "$year:$mon:$mday", "$hour:$min:$sec");
chdir ("/home/guest-content");
...
    mkdir $mkdir[$count];
    chdir $mkdir[$count];
}

for my $count ( 0 .. $#mkdir ) {
    mkdir $mkdir[$count];
    chdir $mkdir[$count];
}

for my $elem ( @mkdir ) {
    mkdir $elem;
    chdir $elem;
}

for my $elem ( "$year:$mon:$mday", "$hour:$min:$sec" )
{
    mkdir $elem;
    chdir $elem;
}

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

 mkdir "guest" or die "$! - mkdir guest";
 system "cp -R default/* guest" and die "cp -R failed";