#!/usr/bin/perl
use CGI qw(:standard escapeHTML);
use strict;
print header ();
use vars qw($autor);

if(param("anzeigen") eq "zuw") {
$autor = "Autor";
}
if(param("anzeigen") eq "var") {
print "Autor: $autor"; 
}