my $cgi = CGI->new;
use Data::Dumper;
printf  "<xmp> %s </xmp>", Dumper($cgi);