#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

# set $x from get_num(), if it returns true value
# then do something with $x
if (my $x = get_num()) {
  print $x, "\n";
} else {
  print "empty\n";
}

sub get_num { 3 }