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