sub pod {
	my ($class, $source, $dest) = @_;

	my $html = Pod::Tree::HTML->new($source, $dest);
	$html->translate;
	open(HTML, $dest) or die "Can't open HTML for $source: $!";
	flock(HTML, LOCK_SH);
	print $cgi_query->header;
	foreach (<HTML>) {
		chomp;
		print;
	}
	close(HTML);
}