#!/usr/bin/perl -w


# This is a poor way to list filenames using all the available
# switches for your local 'find' command.  It could probably be
# better accomplished with File::Find, but i was not able to 
# make that work.

use strict;
use Data::Dumper 'Dumper';

# here you can use whatever arguments you like.... 
open FIND, "find . -name *.html -maxdepth 3 -mindepth 3 |";

# a large number, MAXLINE if you're being conscientous
read FIND, my $find_output, 99999;

# the find output is returned as one big string, so split it
my @files = split(/\n/, $find_output);


# dump the raw find output.  note that it's all one value,
# with \n (newline) in it.
print Dumper [$find_output];

# now dump the array..  each 'hit' on it's own position
print Dumper [@files];


exit 0;