#!/usr/bin/perl;
use strict;

sub readindirs {
    my ($dirname) = @_;
	print "$dirname -> dirname \n";
    opendir(NEWDIR, $dirname) or die $!; 
    my @newfiles = grep { $_ ne '.' and $_ ne '..' } readdir NEWDIR;
    closedir NEWDIR;
    foreach my $name (@newfiles)
    {
        if (-d $name) {
        	print "name:: $name \n";
           readindirs($name);
        } else {
        	print "parse file : $name \n";
            #&parse_file($name);
        }
    }
}
&readindirs('.');

##</code><code>##

. -> dirname
name:: about
about -> dirname
parse file : aic3.pl
parse file : contact
parse file : coredocs
parse file : footer.inc
parse file : index.html
parse file : nav.js
parse file : organization
parse file : overview
parse file : programs
parse file : rightnav.inc
parse file : template.html
parse file : top.inc
parse file : about2.zip
parse file : aic.pl
parse file : aictemp.pl