use warnings;
use strict;

use File::Find::Rule;

my $dir = 'files';
my $type = '*.psd';

my @files = File::Find::Rule->file()
                            ->name($type)
                            ->in(($dir));

my $count = scalar @files;
print "file count: $count\n\n";

print "file names:\n";
print "$_\n" for @files;