Select Code to Download

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