#!/usr/bin/perl -w use strict; use CGI qw/:standard/; print header(); print start_html("This is a test"); print start_form(); print end_form(); #### Content-Type: text/html; charset=ISO-8859-1 This is a test Use of uninitialized value in length at (eval 9) line 11.