#!/usr/bin/perl
#filelister
# Recursively searchs down thru directories for files  
use warnings;
use strict;
use File::Find;

find (\&found,".");
$" = "\n";
print "@ARGV\n";
exit;

sub found{
push @ARGV, $File::Find::name if -f;
}