Select Code to Download

# make the first letters of the NAME of the sender uppercase
my @from = split(/ /, $from);
...
# make the first letter of the message upper case
$message = ucfirst($message);

##############################################
# puts a period at the end of senders message,
...
  $message = $message.'.';
}
##############################################