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

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