#! /usr/bin/perl
use CGI;
my $cgi = CGI->new();
if ($cgi->param('irgendas') {
  print $cgi->header();
}