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