use warnings;
use strict;

opendir(my $dir, '.');
my ($file) = grep {$_ eq 'carlos.txt'} readdir($dir);
closedir ($dir);

print "$file <------------- Found File\n" if $file;