#!/usr/bin/perl -w  
use CGI ':all';
print
    header,
    start_html,
    start_form,
    textarea(-name => 1),
    submit,
    end_form,
    end_html;
__END__