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