$ perl -E 'my $x = -1; say $x ? "true" : "false"'
true