rbaecker@www-devel-rbaecker ~ $ cd community/
rbaecker@www-devel-rbaecker ~/community $ ll
total 0
rbaecker@www-devel-rbaecker ~/community $ vi cgi.pl
rbaecker@www-devel-rbaecker ~/community $ cat cgi.pl
#!/usr/bin/perl

use strict;
use warnings;
use CGI;

open FILE, '>', 'test.out' or die $!;
open HTMLFILE, '>', 'test2.out' or die $!;

my %FORM = CGI::Vars();

my $allow_html = 0;

if( $allow_html != 1 ){
    for my $key ( keys %FORM ){
        $FORM{$key} =~ s/<([^>]|\n)*>//g;
    }
}

while( my ($key,$value) = each %FORM ){
    next if $key eq 'Submit';
    print FILE $key, "=", $value,"\n";
    print HTMLFILE "<tr>\n<td>$key</td>\n<td>$value</td>\n</tr>\n";
}

rbaecker@www-devel-rbaecker ~/community $ perl cgi.pl test=1 hallo=2 mein_test=3 perl=community
rbaecker@www-devel-rbaecker ~/community $ ll
total 12
-rw-rw-r-- 1 rbaecker rbaecker 468 2008-05-21 11:55 cgi.pl
-rw-rw-r-- 1 rbaecker rbaecker 158 2008-05-21 11:56 test2.out
-rw-rw-r-- 1 rbaecker rbaecker  42 2008-05-21 11:56 test.out
rbaecker@www-devel-rbaecker ~/community $ cat test.out
perl=community
test=1
mein_test=3
hallo=2
rbaecker@www-devel-rbaecker ~/community $ cat test2.out
<tr>
<td>perl</td>
<td>community</td>
</tr>
<tr>
<td>test</td>
<td>1</td>
</tr>
<tr>
<td>mein_test</td>
<td>3</td>
</tr>
<tr>
<td>hallo</td>
<td>2</td>
</tr>