open( $fh, '+>', undef ) || die $!;