#!/usr/bin/perl -wT use strict; use CGI; print <<"EOF"; Content-Type:text/html Rechner EOF my $pw = "test"; if ($pw ne 'passwort'){ print "Passwort falsch!"; } else { print "Geheime Daten."; } print "\n";