#!/usr/bin/perl -w use strict; use CGI; use HTML::Template; my $cgi = CGI->new; print $cgi->header; if ($cgi->request_method eq 'POST') { doe iets; my $template = HTML::Template->new( filename => 'bedankt.html' ); $template->param(mail => $cgi->param('mail')); print $template->output } else { print read_file 'aanmelden.html'; }