$ ./802590.pl 0
mode = w
$ ./802590.pl 1     # with explicit close
mode = r+