Perl - COMO??? hago para controlar el ancho de pagina

hola que tal, espero que me ayuden, tengo un cgi, que me realiza la busqueda de directorios, pueden verlo en www.800ventas.com, pero quiero que cuando eligo directorios las catetgorias se vean en linea y cuando lleguen al borde del ancho original de la pagina, sigan en la siguiente linea, se que quizas sea una tonteria, pero quisiera saber COMO?? se hace, gracias y les dejo el codigo para que lo vean y me den ideas:

$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 "</table>";
close EMPRESAS;
}