Also bad newbie code, but should do it for you ;-)

use strict;

my (@files, @printThis);
my $contentDir = './';

opendir(DIR, "$contentDir") || die "Can't open dir: $!";
    @files = readdir(DIR);
closedir(DIR);

foreach (@files) {
    if ($_ !~ /^\.+/) {
        push @printThis, $_;
    }
}

# then print out your content
[download]

Update: Move along, nothing to see here ;-)