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);
}