##

use YAML::Syck;
use CGI::Fast ':standard';
while ( my $q = new CGI::Fast ) {
my $data;
$data->{'product'}=$q->param('product');
$data->{'product_test'}="test product"; #for test that YAML is working
DumpFile( 'test.yml', $data );

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

##

##

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