opendir DIR, $dir or die $!;
my $files = grep /^\w+\.*\w+$/, readdir DIR;
closedir DIR;

$files == 0 && print "Verzeichnis leer!";