$ echo qqqqq > 1
$ perl -E 'open my $F, "+<", "1" or die $!; print {$F} "w";'
$ cat 1
wqqqq