If I do a 'perl file.cgi' I get this:

Use of uninitialized value in string eq at file.cgi line 115. Use of uninitialized value in string eq at file.cgi line 115. Status: 302 Moved location: http://www.domain.com/page.html