Show me

##

#!/usr/bin/perl
# showme.pl
use strict;
use warnings;
use CGI 'param';

my $html = param('myHTML');
my $ashtml = param('asHTML');

if ($ashtml) {
    print "Content-Type: text/html\n\n";
    print $html;
} else {

    print "Content-Type: text/plain\n\n";

    print "The HTML you submitted looks like:\n";
    print "*" x 76, "\n";
    print $html;
    print "\n", "*" x 76, "\n";
}

##

##



Show me


Hi



##

##

The HTML you submitted looks like:
****************************************************************************


Show me


Hi


****************************************************************************