use Data::Dumper;
use CGI;
$q = new CGI;
%passfile = ( 'me' => 'secret7', 'you' => 'foo' );
print $q->header;
print '<pre>' . $q->escapeHTML(Dumper(\%passfile)) . '</pre>';