# $q is CGI object
# $foo and $ bar are hash references

print $q->escapeHTML(Data::Dumper::Dumper($foo,$bar));

##</code><code>##

print $q->escapeHTML(join '', Data::Dumper::Dumper($foo,$bar));