sub getLetter {
   my $txline;
   my $letterfile = 'C:\Users\Carl\Documents\NewLetter.txt';
   open (INPUT1, $letterfile) or die ("Can't open file");
   while ($txline = <INPUT1>) {
      return $txline;
   }
}