use strict;
use File::Find;

my $directory = '/home/kelder/files';

find(sub {
    push @ARGV, $File::Find::name;
}, $directory );

print "Processing $_"
    for @ARGV;