Example

#!/usr/bin/perl -w
use strict;

use CGI;
use HTML::Template;
use File::Slurp;

my $cgi = CGI->new;
print $cgi->header;

if ($cgi->request_method eq 'POST') {
    do something;
    my $template = HTML::Template->new(
        filename => 'thanks.html'
    );
    $template->param(mail => $cgi->param('mail'));
    print $template->output
} else {
    print read_file 'register.html';
}