#!/usr/bin/perl -w

use File::Find;

find(\&dir_explorer, "/home/gw/A/S/d");

sub dir_explorer
{
    my $entry = $_;

    if (-d $entry) {
       $dir=$entry;
       open(FILE, "> $dir") or die "Can not open $dir with permission for writing: $!\n";
       close(FILE); 
    };
    
    if (-f $entry) {
       open(FILE, ">> $dir") or die "Can not open $dir: $!\n";
       print FILE "$file\n";
       close(FILE);
    };     
};