#!/usr/bin/perl

use warnings;

use strict;

use v5.20;

(say(undef))
?
say(!undef)
:
say(!!undef);

exit undef;