my $config = 'e:\Inetpub\wwwroot\msdata\config.txt';
open (CON, $config); my @list = <CON>; close CON;
my $list = join( '', @list );
@list = split(/=/, $list);
my $testnum = $list[1];
open (CONOUT, ">".$config);
print CONOUT '[filenumber]=1';
close CONOUT;