use Path::Class qw/dir/;
my $dir = dir( 'basedir' ); # platform-neutral syntax

##</code><code>##

my @plain_files;
$dir->recurse(callback => sub {
    my $file = shift; # Path::Class object
    return if $file->is_dir;
    push @plain_files, $file;
});