Select Code to Download

sub text_to_html_value {
   my ($s) = @_;
...

my $q_value = text_to_html_value($value);
print qq{<input type="text" name="product" value=$q_value size="10">};