Not using Logical Defined-Or (it is not working in perl 5.8)