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

my $start="/some/path/to/some/where";

crawl($start);

exit(0);

sub crawl {
    my $dir = shift;
    opendir(my $dh,$dir) or die "$dir: $!";
    while (my $entry=readdir($dh)){
        next if ($entry eq '.') || ($entry eq '..');
        printf "%s\n",$entry;
        if ( -d $entry ) {
            crawl($dir . "/" . $entry);
        } 
            
    }
    closedir($dh);
}