my  $dat=$stht->fetchall_arrayref();
print "<table>";
print "<Tr>";
for my $i(0..$#{$dat})
{
my $image = Image::Magick->new;
my $in="/home/bthcraft/public_html/$nme/images/tn_$dat->[$i][2]";
my $result=$image->Read($in);
warn  $result if $result;
my $width=$image->Get('columns');
my $height=$image->Get('rows');

print $q->start_form(-name=>'display individual',-method=>'POST',-action=>'image.cgi');
print "<input type=hidden name= 'index'  value='$i'>";
print "<input type=hidden name='uname' value='$nme'>";
print "<input type='image' src='http://typhoon.he.net/~bthcraft/$nme/images/tn_$dat->[$i]->[2]' name='image' height ='$heigh$
print $q->end_form;
print "</td>";
}
print "</Tr>";
print "</table>";