perl5.10からの機能defined-or演算子を試す