広告
unless は if と逆の意味です。
unless ($lngX >= 0) { print "正でない\n"; }
http://www.7key.jp/program/perl/unless.html