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