$fh_out = new IO::File "file", O_RDWR|O_BINARY|O_APPEND|O_CREAT;