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

##</code><code>##

open FILE, ">>", $filepath or die "Unable to write to file\n$!";

##</code><code>##

print header;
print start_html(-title => 'Web Pages for local data.');
...
print p("Data Submitted.", br, b($newtext));
print end_html;

##</code><code>##

my $q = CGI->new;

##</code><code>##

my $q = new CGI;