#!/usr/local/bin/perl
# Jaime Prilusky, 2003
# Symbolic or. Works on numbers and strings. 
# Returns the value of the true operand if either of the two 
# operands is true, and null (false) otherwise.

  my $number = $ARGV[0] || 100;
  print "will work on number = $number\n";