sub printHTMLCreateBr {
    my $file = shift ;
    my $count = shift || 1;
    ...