sub CreateConfig{
my ($file,@data) = @_;
$file = $file.".new";
open(NFILE,">$file");
foreach my $item (@data){
printf NFILE "$item\n";
}
close(NFILE);
}