#!/usr/bin/perl

use strict;
use warnings;

sub MakeDirs($$$);

MakeDirs("/hpq", 2, 3);

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 = 0; $x < $num_dirs; $x++)
    {
        MakeDirs("$base/$dir_name", $num_dirs, $depth - 1);
        $dir_name++;
    }
}