始终以三项参数的形式调用open

从Perl 5.6开始，已有了解决这种问题的办法，就是以三个参数形式open。

而且从现在开始，就应该养成使用这种形式的习惯。

open my ($fh) , '<', $write_file  or die ....;
open my ($fh),'>>',$append_file or die ... ;