$| = 1 ; 
my $fh  ;
    for my $master (1..100) {
        for my $fast (1..50000) {
                unless ( print $fh "PRINT OK $master $fast\n" ) {
                        my $now = localtime ;
                        print "Failed $it $master $fast at ", $now,  "\n" ;
                        close $fh ;
                        sleep 1 ;
                        my $ok = 0 ;
                        while ($ok == 0)  {
                                if (open $fh, ">>", "/mnt/fs_1/ttt.$it.txt") {
                                        print $fh "PRINT OK $master $fast\n" ;
                                        $ok = 1 ;
                                } else {
                                        my $now = localtime ;
                                        print "Failed delayed write for $it $master $fast ", $now,  "\n" ;
                                        sleep 1 ;
                                }
                        }
                }
   }}