Path::Tiny is a very good interface to readedir, very good substitute for glob

use Path::Tiny qw/ path cwd /;
my $dir = cwd(); 
my( $first ) = @ARGV;
# my @prfiles = grep { $_ eq $first } path( $dir )->children;
my @prfiles = path('.')->children( qr/\Q$first\E/ );
[download]

File::Find::Rule is the next step up

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

'.' is common name for cwd :)

Now you know :)