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