#!/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('.');