my $cgi = CGI->new();
my %params = $cgi->Vars();
if(not keys %params){
    print "Keine Parameter";
}