opendir D, '.' or die "Can't opendir .: $!\n";
while (readdir D) {
    # The body of your loop stays the same.
}
closedir D;