Voorbeeld

#!/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';
}