$foo = "Matt";
  use Inline Spew => q{
  START: sentence
  sentence: person " " action "."
  person: "$foo" | "She" | "Barnacle Bill"
  action: "walks" | "sails" | "swims"
  };
  print spew();