sub SayIt
{
  local($text) = @_;

  print "$text\n";
}

1;