use Cwd;
my $dir = getcwd;
opendir DIR, $dir;
my @prfiles = grep { $_ eq $ARGV[0] && $_ ne '.' && $_ ne '..' } readdir DIR;
closedir DIR;