exemple:

#!/usr/local/bin/perl
   


  opendir (DIR, ".");
  @files = readdir(DIR);
  closedir (DIR);

  foreach $file (@files) {
	if(-d $file and ($file ne "..") and ($file ne ".") ) 
	{ print $file,"\n"; }
    }