Select Code to Download

#!/usr/bin/perl

...
    print "Dir:  $_\n" if -d;
}

steve@ubuntu:~/devel/repos/scripts/file_find$ ./find.pl 
Enter path: test
...
Dir:  .hidden
Dir:  a
Dir:  b