sub html_to_pdf
{
	my($pdffile,$htmlfile)=@_;
	
	$command = "htmldoc --webpage -f \"$pdffile\" \"$htmlfile\"";
	print $command."\n";
	eval{system("$command");};
		print "\$\@:$@\n";
		if($@)
		{
			print "html to pdf Failed->\n$@\n";
			return 0;
		} #if($@)
		else
		{
			return 1;
		} #else for if($@) 
} #sub html_to_pdf