sub printHTMLCreateBr {
    my $file = shift ;
    my $count = shift ;
    if (undef $count) {
	  $count = 1;
	}  
    print $file "<br>"x$count;
	return (1) ;
}