#!perl

use strict;
use warnings;
use FileHandle;
use File::Spec;

my $file = File::Spec->catfile('C:', 'Program Files (x86)', 'perl-test.txt');

my $fh = FileHandle->new($file, '>');
if( defined $fh ) {
	$fh->print("bar\n");
	$fh->close();
}else{
	die("Error: $!");
}