print $q->escapeHTML(Data::Dumper::Dumper [$foo, $bar], [qw(*foo *bar)]);