CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:
Bareword "ONF" not allowed while "strict subs" in use at C:\webdev\wwwroot\cgi-bin\index.pl line 37.
Execution of C:\webdev\wwwroot\cgi-bin\index.pl aborted due to compilation errors.
##</code><code>##

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: $MyFile");
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);
}