use strict; 
use File::Find; 

my $var   = ''; 
my @dirs = (); 

my $startdir = '.'; 


sub process_item 
{ 
  next if $_ =~ /^\.\.?$/; 

  if (-d $_) 
  { 
    # Aus dem gesamten Pfad werden führende Punkte "../" entfernt 
    $var = $File::Find::name; 
    $var =~ s/^\.\.?\///; 
  
    push (@dirs, $var); 
  } 
} 

find(\&process_item, $startdir); 

print join("\n", (@dirs);