use File::Find::Rule qw/ find rule /;
my( $first ) = @ARGV;
my @prfiles = find(file => name => $first, maxdepth => 1, in => '.');