#start of script
#!/usr/bin/perl

use strict;
use HTML::Mason;
my $interp = HTML::Mason::Interp->new( );
my $comp = $interp->make_component(comp_source => <<'END');
 Greetings, <% ("Earthlings", "Martians")[rand 2] %>
END
$interp->exec($comp);
#end of script

##</code><code>##

hi Greetings, <% ("Earthlings", "Martians")[rand 2] %>

##</code><code>##

[Sun Mar 25 13:28:31 2012] [error] [client 127.0.0.1] malformed header from script. Bad header=hi Greetings, Earthlings: handshake3.html
[Sun Mar 25 13:28:31 2012] [warn] /mason/handshake3.html did not send an HTTP header

##</code><code>##

PerlModule HTML::Mason::ApacheHandler
<Location /mason/handshake3.html>
    SetHandler perl-script
    PerlHandler HTML::Mason::ApacheHandler
</Location>