EOF @ext = qw(jpg gif bmp); $| = 1; $match = 0; $encoding = 'multipart/form-data'; $q = new CGI; print "Content-type: text/html\n\n"; print $config{'header2'}; print "
"; print "
 Select your pictures to upload ( @ext )

";