#!/bin/perl print "Content-Type: text/html\n\n"; while () {print} sub error { my $error = $_[0]; print "Content-Type: text/html\n\n"; print "

Fehler

$error\n\n"; exit(0); } __END__

falls Sie nicht automatisch weitergeleitet werden,
clicken Sie hier!