#! /usr/bin/env perl
use strict;
use warnings;

use File::Find::Rule;

my @dirs = @ARGV;
if ( !@dirs ) {
    warn "No directories specified.\nUsing '.' for search.\n";
    @dirs = ( '.' );
}

my @files = File::Find::Rule->file()
                            ->in( @dirs );

for my $file ( @files ) {
    print $file, "\n";
}