use strict;
use CGI;

my $CGI = new CGI;

print $CGI->header();

if (my $html = $CGI->param('html')) {
    print $html;
}
else {
    print $CGI->start_html('title'), $CGI->start_form,
    $CGI->textarea(-name=>'html',-rows=>10,-columns=>50),
    $CGI->submit,$CGI->end_form, $CGI->hr, $CGI->end_html;
}
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--