######################
sub bmsg{
######################
$query = new CGI;
$bm_cookie = $query->cookie(-name=>BROADCAST,
			 -value=>$welcome_value,
			 -expires=>"+1M",
			 -httponly=>"1", 
			 -secure=>"$secsid",
			 -path=>"/");
print qq~Set-Cookie: $bm_cookie\n~;

print_topless();
$broadcastmsg = showhtml("$broadcast_msg");
print qq~<div style="color:#000000;font-size:12px;!important;">$broadcastmsg</div>~;
exit;
}