#!/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/";


print header;

warningsToBrowser(1);

######### paramters : myform= monthly list from= default 0 to= default 200
my $query=new CGI;
my $value = $query->param('select_list');


### generate link to file that is going to be displayed
my $filelink = $dir . $value . ".txt";

### test link -> does not work
print "$filelink"; #### $value ist leer!!!

#### are there any parameters around?
foreach my $p (param()) 
{
print $p, "   ";
}

#!/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;
	<font face="Arial"> available lists with candidate publications:</font>
	</br>

    <form name="myform" action="$nextscript" method="POST">
      <div align="left">
        <select name='select_list'>
HTML

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

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

print <<HTML;
<br>
<form action="$nextscript" method='POST'>
<FORM><INPUT TYPE='submit' VALUE='submit'> </FORM>
HTML
print end_html;