#!/usr/bin/perl -w

my $path = "/monktemp"; 
chdir($path)  or die "Cannot chdir to /monktemp: ($!)";

for (1..300) {
	mkdir("monk", 0755) or die "Cannot mkdir monk: $!";  
	chdir("monk")       or die "Cannot chdir to monk: ($!)";
	$path .= "/monk";
	print ("Done Processing $_ levels: Path length so far =", length($path),"\n");
}

##</code><code>##

......
......
Done Processing 45 levels: Path length so far =234
Done Processing 46 levels: Path length so far =239
Done Processing 47 levels: Path length so far =244
Cannot mkdir monk No such file or directory at createdir line 7.