my $file = "C:\\TEMP\\cfg";
open CFG, '>', $file or die "failed to open $file: $!";