if ($foo) {
  print <<STRING;
  foo is $foo.
  STRING
}