#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;

print $q->header; 
print $q ->start_form;
print "<br><br>";
print $q->textfield(
        -name      => 'field',
        -value     => 'field',
        -size      => 100,
        -maxlength => 100,
    );
print "<br>";
print $q->textarea(
        -name      => 'area',
        -value     => 'area',
        -rows      => 2,
        -columns => 100,
    );
print $q ->end_form;