Select Code to Download

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

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

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