#! perl -slw

# This would normally be updated based on some condition in the code.
my $condition = 0;

# possibly very many lines of code go here

# Faking a condition in the code...
$condition ||= shift @ARGV;

if ($condition) {
  require HTTP::Status;
  import HTTP::Status;
  print RC_FORBIDDEN();  # as merlyn pointed out, we need to give the parser a clue
}

__END__
P:\test>test4 0

P:\test>test4 1
403