my @unsfiles = readdir(DIR);

##</code><code>##

my $filename = __FILE__;
my @unsfiles = grep(!/^(\.|$filename)/, readdir(DIR));

##</code><code>##

my @files = grep(/\./, @unsfiles);
my @dirs = grep(!/\./, @unsfiles);