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

##</code><code>##

eval { print $filehandle ....... }
if ($@) { error hnadling }