Foros del web, para los que viven de bits

$directorio=@_[0];
print "<hr size=1 color=blue>";
print "<b>\U$directorio</b>";
print "<hr size=1 color=blue>";
print "<table border=0 cellpadding=10 cellspacing=0>";
print "<tr>";
open (EMPRESAS,"$archivo_empresas") || &Error ($!, "$archivo_empresas");
while($renglon=<EMPRESAS>){
chop $renglon;
@matriz=split("\t",$renglon);
$x=0;
foreach $item (@campos){
$$item=$matriz[$x];
$x++;
}
if ($modoemp eq $directorio && $status ne ""){
print "<td align=center>";
print "<a href=\"../$codigo\">";
print "<img src=\"../img/item.gif\" border=0><br>";
print "\u$codigo";
print "</a>";
print "</td>";
}
}
print "</tr></table>";
close EMPRESAS;
}
Este es mi codigo, funciona asi, cuando entro a la pagina principal, entra a unos notones entre los cuales se encuentra directorios, al escoger directorios, muestra todas las categorias de los directorios de manera lineal, asi se ve bien, pero cuando ingreso mas categorias, se ensancha la pagina, quisiera saber COMO??? controlo esto para que cuando llegue al limite del ancho original salte la información o categorias a la linea siguiente, y se ordene asi sucesivamente. intente con </n> y </f> pero nada.