use HTML::Entities;
my $email = $q->param('email');
$email = encode_entities($email);
print <<ENDHTML;
     <input type="text" name="email" value="$email">
ENDHTML