while (my $name=readdir OF) {
      next if  ( ($name =~ /^\./ )||(-f $name) ); 

      #must print only directories

      print $name;
      print "\n";

}