Pagina's in bestanden

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

use CGI;
use File::Slurp;

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

if ($cgi->request_method eq 'POST') {
    doe iets;
    print read_file 'bedankt.html';
} else {
    print read_file 'aanmelden.html';
}