Select Code to Download

<form action="main.cgi?afd=upload" method="post" enctype="multipart/fo
+rm-data" name="form" id="form" target="_top">
<input type="file" size=25 name="upload_foto" id="upload_foto" value="
+$filename" tabindex=2>
<input type="text" size=25 name="naam" id="naam" value="$naam" tabinde
+x=1>

sub Parse_Form { 
    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
...
print "Content-type: text/html\n\nGelukt om in die kut-sub te komen.";
exit;
}