sub upload { if ($match){ print ""; print "
"; print "
"; my $footer=''; for my $idx (0 .. $#files) { last if $idx > 11; ### Original code had 12 copies of the same code... my $idx_n = $idx+1; print "
Image file $idx_n:: $files[$idx]
\n"; print "
$uploadfiles[$idx]
Upload Complete Image $idx_n.
\n"; print "


\n"; $footer .= ""; if ($idx == 0) { ### Original code only created THUMB for first file... $footer .= ""; } } print $footer; print "
"; print "

If the image(s) are correct. Click \"Continue\".

"; print "

If they are not correct, use your browsers back button to try again.

"; print "
"; print ""; } }