Select Code to Download

#!/usr/bin/perl
use warnings;
...
mkdir -p $folders[$_];
chdir $folders[$_];
}

#!/usr/bin/perl
use warnings;
...
my @folders = split /\/|\\/, $foldername;

map { mkdir $_; chdir $_; } @folders;