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

print "Content-Type: text/html\n\n";

my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";
my @menu_files = map {/([^\/]+)\.txt$/} @files;
Encode::from_to(@menu_files, 'ISO-8859-7', 'utf8');

print "@files";
print "@menu_files";