#!/usr/bin/perl -w 

sub dir_explorer {
  my $dir = $_[0]; 
  opendir(DIR,$dir) or die "Konnte Verzeichnis $dir nicht öffnen: $!";
  my @verzeichnis = readdir(DIR);
  close(DIR);
  open(FILE,">output.dat");
  foreach $entry (@verzeichnis) {
        if(-f $entry){
           # formatieren($entry);
           print FILE "$entry ist ein  file ! \n";
        }
        else { 
        print FILE "$entry ist ein directory ! \n";
        dir_explorer($entry);
        }
   };
  close(FILE);
};

dir_explorer("/home/du/Stelle");