# make the first letters of the NAME of the sender uppercase
my @from = split(/ /, $from);
$_ = ucfirst for @from;

# make the first letters of the NAME of the receiver uppercase
my @to = split(/ /, $to);
$_ = ucfirst for @to;

# make the first letter of the message upper case
$message = ucfirst($message);


##</code><code>##

##############################################
# puts a period at the end of senders message,
# if one was not there, AND, if there is no
# question OR explanation mark.

my $length = length($message);
my $period = index($message, ".");
my $question = index($message, "?");
my $explanation = index($message, "!");
$length = $length - 1;

if (($period ne $length) && ($question ne $length) && ($explanation ne $length)) {
  $message = $message.'.';
}
##############################################