#!/usr/bin/env perl                                                                           

use feature qw (say);
use strict;
use warnings;

my $foo;

( defined $foo ) ? say qq(D'oh!) : say qq(No!);

$foo = 0;

( defined $foo ) ? say qq(D'oh!) : say qq(No!);