#! perl

use File::Find;

$eingabe = $ARGV[0];
while (!$eingabe){
    print "Es wurde kein Verzeichnissname eingegeben. Bitte geben sie einen Verzeichnissname ein:\n";
    $eingabe = <STDIN>;
    chomp $eingabe;
}



my @files;

find(\&get_dir,$eingabe);

for my $file(@files){
    print "$file\n";
}

sub get_dir{
    push(@files,$File::Find::name) if(-d $File::Find::name);
}