sub MakeList {
    $level++;
    my ($TreeDir) = @_;
    
    opendir(TREEDIR, $TreeDir) or die "Error: couldn't open directory '$Directory':$!\n";
    
    foreach my $entry3 (readdir(TREEDIR)) {
        unless ($entry3 =~ m/\.\.?$/) {
            my $i = 0;
            
            #---This prints the directories and subdirectories. The subdirs are indented by tab
            print $level;
            while ($i < $level) {
               
 print "\t";
               
 $i++;
            }
            print "$entry3\n";
            #---End of that printing thing
            
            if (-d "$TreeDir/$entry3"){
               
 my $NextDir = "$TreeDir/$entry3";
               
 print "\nEntering new Folder $NextDir\n";
               
 MakeList($NextDir);
            }
        }
    }
    closedir(TREEDIR);
    $level--;
}

            while ($i < $level) {
               
 print "\t";
               
 $i++;
            }

print "\t" x $level;