#!/usr/bin/perl

use warnings;
use strict;


my $dir = '/home/dieter';

opendir(DIR, $dir) || die "can\'t opendir $dir: $!";
my @files = readdir(DIR);
for(my $i = 0; $i <= $#files; $i++) {
    print $files[$i], "\n" if $files[$i] !~ /\./;
}


closedir(DIR);