#! /usr/bin/perl

#      defined_or

#use feature 'say';
use feature ':5.10';

my $a;
my $b = ", Honey, I\'m home!";

my $message = $a // $b;        # $a if it's defined, otherwise #b

print "Hi$message\n";

#  End defined_or