my $testdir = '/tmp/testing';
opendir my $dh, $testdir or die "opendir($testdir) failed: $!\n";
# verwende alles ausser . und ..
my @entries = grep { ! m/^\.\.?$/ } readdir $dh;
closedir $dh;