#!/usr/bin/perl -w

use strict; # always use strict, or die

opendir(DIR,'./') or die "couldn't open directory";

my $noshow = join '|',
             map { quotemeta }
             ('.','..',__FILE__);

my @files = grep !/$noshow/, readdir(DIR);

print "$_<BR>" for @files;