#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

# predefined Vars:
my $dir = "/Library/WebServer/Documents/CC/lists/";
my $nextscript = 'http://localhost/cgi-bin/CC/pick.pl';

print header;
# nach dem Header auch Warnungen ausgeben
# werden als HTML Kommentare eingefügt!
warningsToBrowser(1);

########################################################################
#### check what lists are available and create dropdown menu to select

opendir(DIR, $dir) or die "$!";

# du willst doch alle Dateien die mit ".txt" enden.
# Du kannst auch gleich die Endungen entfernen:
my @lists =  grep {s/\.txt$//}  readdir DIR;

closedir(DIR);

print start_html("Select papers from selection:");
print <<HTML;
    <form name="myform" action="$nextscript" method="POST">
      <div align="left">
        <select name='select list'>
HTML

print qq(        <option value="$_">$_</option>\n) for (@list);

print <<HTML;
        </select>
      </div>
    </form>
HTML

print end_html;