#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $dir = shift;
find(\&print_name_if_file, "$dir");

sub print_name_if_file {
      print "$_\n" if -f;
}