#!/usr/bin/perl

use CGI; 
use YAML; 

$q = CGI->new; 
$q->param(sex,'good');

print Dump($q); 

$d  = Dump($q); 
$re = Load($d);

print Dump($re);