#!/usr/bin/perl

$| = 1;

use strict;
use warnings;

use CGI ();

# --------------------

my $query = new CGI;

print $query->header( );

my $var1 = $query->param('var1');
my $var2 = $query->param('var2');

warn ("CGI: $CGI::VERSION Keine Daten für \$var1") if ( not defined($var1) or length($var1) == 0 );
warn ("CGI: $CGI::VERSION Keine Daten für \$var2") if ( not defined($var2) or length($var2) == 0 );

1;