Generated: Tue Feb 2 17:54:44 2010 from mainorg.pl 2005/12/05 215.
#main.pl use Tree; #include the tree class file. my($TreeObj) = Tree->new("c:\\"); #instantiate. Note that arg0 is Tree. $TreeObj->tellroot(); #Note that arg0 is $TreeObj. #This code should print out "C:\".