Pages in files

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

use CGI;
use File::Slurp;

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

if ($cgi->request_method eq 'POST') {
    do something;
    print read_file 'thanks.html';
} else {
    print read_file 'register.html';
}