#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

{
 open(MYFILE, ">>c:/temp/test.txt")or die "Can't open file: $!\n";
; #open for write, append
 }
printf MYFILE "\n";
printf MYFILE "[ARTEC]\n";
printf MYFILE 'IniFile=f:\vaa\basis\vaa01.ini';
printf MYFILE "\n";
close(MYFILE);