Select Code to Download

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

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

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

my $q = CGI->new;

my $q = new CGI;