#! /usr/bin/perl

use strict;
use warnings;

use File::Find::Rule;

my $start = shift || '.';

for my $obj (File::Find::Rule->in($start)) {
    print "$obj\n";
}