Thickening time (Microcode)

#!/usr/bin/perl
$count = 0;
while(1){
foreach(0..$count){
$back = "../" x $_;
mkdir $back."time".$count;
chdir "time".$_;
}
$count++;
}