#!/usr/bin/perl

my $parent_dir = "/panther/home/efxprod/support";

process_dir($parent_dir);

sub process_dir {
        my $dir = shift;
        print "Processing $dir\n";
        opendir(SCR , $dir) or die "Can't open $dir: $!";
        while( defined ($file = readdir SCR) )
        {
           next if ($file =~ /\.$/ );
           next if ($file =~ /\.txt$/ );
           if ( $file =~ /\.sh$/ ) {
             print "not a regullar file: $file\n";
           } elsif ( $file =~ /\.pl$/) {
             print "perl $file\n";
           } elsif ( -d "$dir/$file" ) {
             print "directory : $file\n";
             process_dir("$dir/$file/");
             #next;
           #} elsif ( $file
           } else {
                print "Else :$file\n" if ( -B "$dir/$file");
           }
           print "file -> $file\n";
        }
    return;
}