#!/usr/bin/perl

use File::Path;


sub recurs {

  my ($prev ) = @_;

  for ($a = 0; $a < 10; $a++) {
    mkpath("$prev/$a", 1, 0755);
    $temp = $prev;
    if ($temp =~ tr/[0-9]//  <= 3)
     { recurs($prev . "/" . "$a"); }
  }

}

recurs("./test");