sub doSomething {
  ...
  use something;
  ...
   my $MessageText = <<Finis;
           ...we will have peace, when you and all your works have
          perished--and the works of your dark master to whom
         you would deliver us. You are a liar, Saruman, and
         a corrupter of men's hearts.
         --Theoden in /usr/src/perl/taint.c
   Finis
   ...
} # sub doSomething