perl -E 'my $x = 0 ; say $x // "true" ' 0