my $foo = 3;
  my $x = print($foo) + 7;
  # There we used print (which is a list operator) as 
  # a function; it returns true, which in numeric
  # context is 1. $x is now 8
  print "\n";
  sub mult { # Declare a function...
    print "Entering function bar\n   1";
    # Here print is used as a statement.
    my $product = 1;
    for (@_) { 
       $product *= $_;
       print " * $_" }
    print " = $product\nExiting function bar\n";
    return $product;
  }
  print mult 42, $x;
  # Here print is used as a statement,
  # but mult (a function) is used as a list operator.
  print "\n";