my $cgi = new CGI;

# Your old stuff
#   :

print end_form(), hr();
print_content();
print_end_html();

if ($cgi->param('DO'))
{
     write_content();
}