#!/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);
  foreach $entry (@verzeichnis)
    {
    if(-f $entry)
      {
      # formatieren($entry);
      print ("$entry ist ein  file ! \n");
      }
    else
      { next if $entry =~ /^.\.?$/;   # . und .. überspringen 
        print ("$entry ist ein directory ! \n");
        dir_explorer($entry);
       }
    };
};

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