print "<input type='image' src='http://typhoon.he.net/~bthcraft/$nme/images/tn_$dat->[$i]->[2]' name='image' height ='$heigh$

##</code><code>##

	print "<input type=hidden name= 'index'  value='$i'>";
	print "<input type=hidden name='uname' value='$nme'>";

##</code><code>##

my $a = 2;
print "\'$a\'";