#!/usr/bin/perl -w
use strict;
use File::Copy;

my $new='c:\\temp\\mytest';
printf ("new = $new");
open NEW, ">$new" or die "I can not open file to write: $!\n";

print NEW "this is a test";

close NEW;

<< this yields the following on the CMD screen: >>

new = c:\temp\mytest
C:\Program Files\OptiPerl\webroot\cgi-bin>