#!/usr/bin/perl

use strict;
use warnings;

sub MakeDirs($$$);

MakeDirs("C:\\Documents and Settings\\Rahul\\Desktop\\perl\\directory\\New2", 15, 2);

sub MakeDirs($$$)
{
    my($base, $num_dirs, $depth) = @_;
    
    mkdir $base;

    #if depth = 0, no more subdirectories need to be created
    if($depth == 0)
    {
        return 0;
    }

    #Recurse through the directories
    my $dir_name = "a";
    for(my $x = 10; $x < $num_dirs; $x++)
    {
        MakeDirs("$base/$dir_name", $num_dirs, $depth - 1);
        $dir_name++;
    }
	
	open(DIR, ">>contacts".$i.".json");
	
	
	
	
}