#!/usr/bin/perl

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

@dirs = grep{-d && $_ ne "."} @files;

@dirs = (".", @dirs, @files);

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