#!/usr/bin/perl -w

use File::Find;

find(\&print_name_if_dir, "/home/dub/Stelle");

sub print_name_if_dir
{
    my $file = $_;

    if (-d $file) {
       $dir=$file;
       open(FILE, "> $dir") or die "Konnte $dir nicht mit Schreibrechten öffnen: $!\n";
       close(FILE); 
    };
    
    if (-f $file) {
       open(FILE, ">> $dir") or die "Konnte $dir nicht öffnen: $!\n";
       print FILE "$file\n";
       close(FILE);
    };     
};