use CGI ();
my $q = CGI->new;
my $navn = $q->param('navn');
my $navn2 = $q->param('navn2');
my $adj1 = $q->param('adj1');
my $bann1 = $q->param('bann1');
...
print $q->header, $readystory;