sub upload { if ($match){ print ""; print "
"; print "
"; if ($file1){ print "
Image file 1:: $file1
\n"; print "
$uploadfile1
Upload Complete Image 1.
\n"; print "


\n"; } if ($file2){ print "
Image file 2:: $file2
\n"; print "
$uploadfile2
Upload Complete Image 2.
\n"; print "


\n"; } if ($file3){ print "
Image file 3:: $file3
\n"; print "
$uploadfile3
Upload Complete Image 3.
\n"; print "


\n"; } if ($file4){ print "
Image file 4:: $file4
\n"; print "
$uploadfile4
Upload Complete Image 4.
\n"; print "


\n"; } if ($file5){ print "
Image file 5:: $file5
\n"; print "
$uploadfile5
Upload Complete Image 5.
\n"; print "


\n"; } if ($file6){ print "
Image file 6:: $file6
\n"; print "
$uploadfile6
Upload Complete Image 6.
\n"; print "


\n"; } if ($file7){ print "
Image file 7:: $file7
\n"; print "
$uploadfile7
Upload Complete Image 7.
\n"; print "


\n"; } if ($file8){ print "
Image file 8:: $file8
\n"; print "
$uploadfile8
Upload Complete Image 8.
\n"; print "


\n"; } if ($file9){ print "
Image file 9:: $file9
\n"; print "
$uploadfile9
Upload Complete Image 9.
\n"; print "


\n"; } if ($file10){ print "
Image file 10:: $file10
\n"; print "
$uploadfile10
Upload Complete Image 10.
\n"; print "


\n"; } if ($file11){ print "
Image file 11:: $file11
\n"; print "
$uploadfile11
Upload Complete Image 11.
\n"; print "


\n"; } if ($file12){ print "
Image file 12:: $file12
\n"; print "
$uploadfile12
Upload Complete Image 12.
\n"; print "


\n"; } if ($file1){ print ""; print ""; } if ($file2){ print ""; } if ($file3){ print ""; } if ($file4){ print ""; } if ($file5){ print ""; } if ($file6){ print ""; } if ($file7){ print ""; } if ($file8){ print ""; } if ($file9){ print ""; } if ($file10){ print ""; } if ($file11){ print ""; } if ($file12){ print ""; } 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 ""; } }