# $home wurde eingegeben als verzeichnis, das die dateien enthält
opendir (DIR,$home);
my @files = readdir(DIR);

closedir(DIR);
# Ausgabe der Dateinamen

print "\n Im Home-Verzeichnis befinden sich die Dateien :\n";
foreach(@files)
{
     print "$_\n";
}

opendir my $dir, $home or die $!;
my @files = grep { $_ !~ /\.\.?$/ } readdir ($dir);
closedir $dir;
print qq($_\n) for @files;

opendir my $dir, $home or die $!;
my @files = grep { $_ !~ /\.\.?$/ } readdir ($dir);
closedir $dir;
print qq($_\n) for @files;

my @files = grep { $_ !~ /^\.\.?$/ } readdir $dir;

#!/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);