eval {
    my $pos = $fh->tell;
    $fh->print('1');
    $fh->seek($pos);
};
my $ready_for_writing = ($@) ? 0 : 1;