foreach $message (@logmessages)
{
    LI(); 
    Strong($message);
}	


sub LI
{ 
	#if (@_) {my($inputValue) = $_0;}
	
	print "<LI>$_0\n";

}