Select Code to Download

MakeDirs("$base/$dir_name", $num_dirs, $depth - 1);

#!/usr/bin/perl

...
        $dir_name++;
    }
}