Perl-Heaven

#!/usr/bin/perl -w use strict; use CGI qw/:standard/; print( "Content-Type: text/html\n\n" ); &run sub run { my $flag=0; $flag = param( 'FLAG' ); print(qq( Perl-Heaven

)); if ( $flag == 1 ) { print 'Ihre E-Mail konntenicht verschickt werden!' } elsif ( $flag == 2 ) { print 'Ihre E-Mail wurde erfolgreich verschickt !' } print(qq(

Kontakt
Name:
Vorname:
Alter:
E-MAIL:
Womit beschäftigen Sie sich am meisten:
Problemschilderung/ Anregung:

)); }