print $out qq{
<FORM METHOD = post ACTION = $script_url name=login>


<table border=0 cellpadding=4 cellspacing=4 width=470>
<tr>
<td>
<table><tr><td>Category<br>   } <----My mistake

should of been
print $out qq{
<FORM METHOD = post ACTION = $script_url name=login>


<table border=0 cellpadding=4 cellspacing=4 width=470>
<tr>
<td>
<table><tr><td>Category<br>  
} <----The fix
it forced a new line so the line below it was not on the 
same line as <table><tr><td>Category<br>