sysopen(FILEHANDLE, $filename, permissions, CHMOD);

##</code><code>##

#!/usr/bin/perl
use strict;
use Fcntl;

my $var = 1;

while ($var) {
	sysopen (FILE, '/home/smaug/testing/file.txt', O_RDWR|O_EXCL|O_CREAT, 0777);
	printf FILE "A value of n\n";
}
close (FILE);