#!/usr/bin/perl -w use strict; use CGI; my $cgi = CGI->new; print $cgi->header; if ($cgi->request_method eq 'POST') { doe iets; print <<'END_OF_HTML'; <html> <head> <title>Bedankt!</title> </head> <body> Hartelijk bedankt voor uw aanmelding! U ontvangt spoedig een bevestiging per e-mail. </body> </html> END_OF_HTML } else { print <<'END_OF_HTML'; <html> <head> <title>Aanmelden</title> </head> <body> Vul onderstaande velden in:<br> Gewenste gebruikersnaam: <input type=text name=user><br> Wachtwoord: <input type=password name=pass><br> Nogmaals: <input type=password name=pass> <hr> Naam: <input type=text name=naam><br> Adres: <input type=text name=adres><br> Postcode: <input type=text name=postcode><br> Woonplaats: <input type=text name=woonplaats> <hr> Telefoonnummer: <input type=text name=telefoon><br> E-mailadres: <input type=text name=mail><br> Homepage URL: <input type=text name=url> <hr> <input type=submit value="Aanvraag versturen"> </body> </html> END_OF_HTML }