my $count = 0;
     
my @mkdir = ( "$year:$mon:$mday", "$hour:$min:$sec");
chdir ("/home/guest-content");
while ($count ne @mkdir){
    system "mkdir $mkdir[$count]";
    chdir "$mkdir[$count]";
    $count ++;
}

##</code><code>##

my @mkdir = ( "$year:$mon:$mday", "$hour:$min:$sec");
chdir ("/home/guest-content");
for ( my $count = 0; $count <= $#mkdir; $count++ ) {
    mkdir $mkdir[$count];
    chdir $mkdir[$count];
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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