tipo questo?

#-#############################################
# Sub: Display List Of Items
# This creates a "nice" list of items in a
# category.

sub displist {
print "<table width=100\% border=0 cellspacing=0 cellpadding=0><tr><td><table width=100\% border=0 cellspacing=0 cellpadding=0><tr><td width=100\% valign=top><font size=-2 face=Verdana class=classe10><a href=$ENV{'SCRIPT_NAME'}><font color=#000000>Home Page</font></a><img src=../images/percorso.gif width=16 height=7><font color=#666666>Pagina corrente:</font> $category{$form{'category'}}</font></td><td><img src=../images/1x1.gif width=1 height=18></td></tr></table></td></tr><tr bgcolor=#738B41><td><img src=../images/1x1.gif width=1 height=1></td></tr><tr><td><img src=../images/1x1.gif width=1 height=30></td></tr></table><table width=100\% border=0 cellspacing=0 cellpadding=0><tr><td><img src=../images/categoria.gif width=30 height=21></td><td width=100\%><font face=Verdana size=-1 class=classe12>Categoria: $category{$form{'category'}}</font></td></tr><tr><td colspan=2><img src=../images/1x1.gif width=1 height=20></td></tr></table>\n";
print "<table border=1 cellpadding=5 width=100\% cellspacing=0 bordercolordark=#cccccc bordercolorlight=#FFFFFF>\n";
print "<TR><td align=left><font face=Verdana size=-2 class=classe11>Articolo proposto</font></td><td align=left><font face=Verdana size=-2 class=classe11>Chiusura dell'asta</font></td><td align=left><font face=Verdana size=-2 class=classe11>Numero di offerte</font></td><td align=left><font face=Verdana size=-2 class=classe11>L'offerta migliore</font></td></TR>\n";
opendir THEDIR, "$config{'basepath'}$form{'category'}" or &oops("Category directory $form{'category'} could not be opened.");
my @allfiles = grep -T, map "$config{'basepath'}$form{'category'}/$_", sort { int($a) <=> int($b) } (readdir THEDIR);
closedir THEDIR;
my $file;
foreach $file (@allfiles) {
$file =~ s/^$config{'basepath'}$form{'category'}\///;
$file =~ s/\.dat$//;
my ($title, $reserve, $inc, $desc, $image, @bids) = &read_item_file($form{'category'},$file);
if ($title ne '') {
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]);
my @closetime = localtime($file);
$closetime[4]++;
print "<TR><TD bgcolor=#f0f0f0 valign=top><font face=Verdana size=-1 class=classe12><A HREF=$ENV{'SCRIPT_NAME'}\?category=$form{'category '}\&item=$file>$title</A></font>";
print "<font face=Verdana size=-2 class=classe11>
<font color=#666666>[<img src=../images/foto_prodotto.gif width=12 height=7> proposta con foto]</FONT></FONT>" if ($image);
print "</TD><TD bgcolor=#f0f0f0 valign=top><font face=Verdana size=-1 class=classe12>$closetime[3]/$closetime[4]</font></TD><TD bgcolor=#f0f0f0 valign=top><font face=Verdana size=-1 class=classe12>$#bids</font></TD><TD bgcolor=#f0f0f0 valign=top><font face=Verdana size=-1 class=classe12>€$bid</font></TD></TR>\n";
}
}
print "</TABLE>\n";
}