[% USE CGI %]
[% CGI.header %]
[% CGI.h1( "Hello World!" ) %]
[% CGI.start_form %]
[% CGI.textbox( { name=>"text" } ) %]
[% CGI.submit %]
[% CGI.end_form %]

##</code><code>##

#!/usr/bin/perl
use CGI;

my $q = new CGI;
print $q->header(),
      $q->h1( "Hello World!" ),
      $q->start_form(),
      $q->textbox( -name=>"text" ),
      $q->submit,
      $q->end_form;