opendir my $dir, '.';
for my $ent ( readdir $dir ) {
    if(! -e $ent ) {
        print "'$ent' is read but does not exist"
    }
};