Select Code to Download

#!/usr/local/bin/perl -w

...
 }
 $hook_called += $bytes_read;
}

<FORM action="/cgi-bin/test.cgi" method="post" enctype="multipart/form
+-data">
    <input value="1154632892005" name="unique" type="hidden">
    <INPUT TYPE="FILE" NAME="file">
    <INPUT type="submit" value="Send"> <INPUT type="reset">
 </FORM>