#!/usr/bin/perl -w
use strict;
use CGI qw/:standard escape/;
use CGI::Carp;

my @noshow = (".", "..", __FILE__);

my (@directories,@files);
opendir(DIR,"./") or die "Couldn't open directory: $!";
for my $entry (sort readdir(DIR)) {
  next if grep {$_ eq $entry} @noshow;
  if (-d $entry) {
    push @directories, $entry;
  } else {
    push @files, $entry;
  }
}
closedir(DIR);

print header,
      start_html,
      div({-style=>"border: solid 1 #003366;
                    background: #F1F1F1;
                    text-align: left;
                    padding: 4px;
                    width: 200px;"},
           map {a({-style => "font-size: 13px; color: #000000;",
                   -href  => "./read_file.cgi?file=".escape($_)},$_)
               .br}
           @files),
      end_html;