use strict;
use warnings;
##</code><code>##

#!/usr/bin/perl
# ^ that should work for most Win32 installs
use strict;
use warnings;
my $filename = "c:\\Program Files\\My Projects\\Scripts For Oracle\\test1.txt";
test_file($filename);
$filename = "c:/Program Files/My Projects/Scripts For Oracle/test2.txt";
test_file($filename);
$filename = 'c:\Program Files\My Projects\Scripts For Oracle\test3.txt';
test_file($filename);

sub test_file {
  my $filename = shift;
  open(FILE, "> $filename") || die "Could not open the file $filename for writing at ";
  print FILE "testing\n";
  close(FILE);
}