Generated: Tue Feb 2 17:54:44 2010 from main.pl 2005/12/05 390.
#main.pl use Tree; #include the tree class file. my($TreeObj) = Tree->new("c:\\windows", \&showdir, \&showfile); $TreeObj->cruisetree(); #Note that arg0 is $TreeObj. sub showdir { print "Directory: $_[0] ...\n"; } sub showfile { print " File: $_[0] ...\n"; } #This code should print out "C:\Windows" folder ...