sub printHTMLCellLeft { my ($file) = shift ; my ($value) = shift ; print $file "" . $value . "\n" ; #<<- 1173 }