Select Code to Download

badword2|badword3|badword

badword|badword2|badword3

use CGI qw/:standard/;

my $q = new CGI; # and all the $q-> method calling

print 
    header,
    start_html,
...
    "Name: $name", br, "Email: $mail", br, "Message: $message", 
    # ok, line above is a *bit* CGI-obsessive
    end_html;