sub pp {
    die "bad number of args to pp" unless @_==1;
    return Data::Dumper->new([shift])->Terse(1)->Purity(1)->Useqq(1)
        ->Quotekeys(0)->Sortkeys(1)->Indent(0)->Pair('=>')->Dump;
}

##</code><code>##

BEGIN {
	if ( eval { require Data::Dump; 1 } )
		{ Data::Dump->import('dd'); }
	else {
		require Data::Dumper;
		*dd = sub { print Data::Dumper->new(\@_)->Purity(1)
			->Useqq(1)->Quotekeys(0)->Sortkeys(1)->Dump };
	}
}