Ouch, thats some rough code ( kwrite won't make it look better).

You need to use abandon that old %FORM code, and instead use CGI or CGI::Simple

You also need to add error checking (open (...) or die ("oh noes... $!")