#!perl

use strict;
use warnings;

open STDOUT, '>', 'C:\\TEMP\\cfg'
    or die "Failed to create cfg";
print "Does this work?\n";
close STDOUT;