Perl - Perl y bds

Cuando me conecto a mysql con perl solo me deja coger las filas de 4 en 4 si cojo mas la pagina se queda cargando y nunca acaba. Os pongo el programa por si tengo algun error.


#!d:\perl\bin\perl.exe -w

print "Content-type: text/html\n\n";

use URI::Escape;
use Mysql;

$conexion = Mysql->connect("sun.ozu.es","Categorias", "categorias", "t%y&u/");

$consulta=$conexion->query("select * from Categorias");


print '<br/><br/>';

print 'NUMEROS REGISTROS : '.$consulta->rows.'<br/><br/>';
print '<table border="1">';
while(%elementos=$consulta->fetchhash){
foreach $k(keys %elementos){
print '<tr><td>'.$k."</td><td>".$elementos{"$k"}.'</td></tr>';
#print "<br/>\n";
}

$i++;
#last if($i>4);

}
print '</table>';


#@registros = $consulta->fetchrow_array;
#print @registros;

#print '<br/><br/>Con keys %elementos & values %elementos :<br/>';
#print keys %elementos;
#print '<br/>';
#print values %elementos;