open(my $filehandle, '>', 'C:\TEST.txt');  <--- OK
print $filehandle "AAA\n";                 <--- OK
print $filehandle "BBB\n";                 <--- OK
print $filehandle "CCC\n";                 <--- disk write error