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


-- 
*****************************
Pall Thayer
artist
http://www.this.is/pallit
*****************************
_______________________________________________
NetBehaviour mailing list
[email protected]
http://www.netbehaviour.org/mailman/listinfo/netbehaviour

Reply via email to