sub commify
{
	my($num) = @_;
	return $num if length($num)<4;
	return commify(substr($num,0,-3), $len).",".substr($num,-3,3);
}