Select Code to Download

use strict;
use warnings;
...
opendir my $d,'/where/ever';
my @content=grep { !/^\.{1,2}$/ } readdir $d;
closedir $d;

use strict;
use warnings;
...
opendir my $d,'/where/ever';
my @content=grep { ($_ ne '.') and ($_ ne '..') } readdir $d;
closedir $d;