#!/usr/bin/perl -w
use strict;

sub is_name_valid
{
   return $_[0]; #just a dummy
}

print "the name ",is_name_valid(0) ? "was" :"was not"," valid\n";
# the name was not valid
print "the name ",is_name_valid(1) ? "was" :"was not"," valid\n";
# the name was valid