# $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";
}