http://qs1969.pair.com?node_id=63398

SilverB1rd has asked for the wisdom of the Perl Monks concerning the following question:

I'm using something like this in a script and its is giving me a strang error why? the error is,
CGI Error The specified CGI application misbehaved by not returning a complete s +et of HTTP headers. The headers it did return are: Bareword "ONF" not allowed while "strict subs" in use at C:\webdev\www +root\cgi-bin\index.pl line 37. Execution of C:\webdev\wwwroot\cgi-bin\index.pl aborted due to compila +tion errors.
The code is like this.
use CGI; use strict; my ($q) = new CGI; my ($MyFile, $i, $t, $key, $NewRec); my (@Mfile, @Settings); $MyFile = "./data/data.txt"; open(INF, "< $MyFile") or dienice("Cant open file! Name of file: $MyFi +le"); seek(INF,0,0); @Settings = <INF>; close (INF); $i = @Settings[0]; $i =~ m/(\d+)/; $NewRec = "./data/scriptdata/R$1.txt"; sub somesub { open(ONF, ">$NewRec") or dienice("Cant open $NewRec"); $q->save(ONF); close (ONF); }
if I comment out the save(ONF); it works fine?

------
The Price of Freedom is Eternal Vigilance