Select Code to Download

<form action="/send.pl" method="POST">
<input name="product" size="50">
<input type="submit" value="Go">
</form>

use YAML::Syck;
use CGI::Fast ':standard';
...
print "Content-type: text/html\n\n";
print "q=".$q->param('product'); # this is for test only
}

---
product: ~
product_test: "test product"