# Set Up Buttons print "
"; my $i = 0; while (@record[$i]){ print "
"; print ""; print "
 "; $i=$i+1; } print ""; print "
";