sub format_email_text
{
my $str;
my $str1;
my $str2;

$str=sprintf("%-30s %-50s","Player Name:",$player);
$str1=sprintf("%-30s %-50s","Parent's Name:",$parent);
$str2=sprintf("%-30s %-50s","Member ID:",$memberid);

return ($str);
return ($str1);
return ($str2);
}

##</code><code>##

sub send_confirmation_email
{
my $text = format_email_text ();
my %mail = (
		From 	=> "info\@somewhere.com",
		To 		=> $email,
		Subject => "Some Subject",
		Message => ""
);
my $page;

		$mail{Message} = <<EOF;
  
This is the information you submitted.

$text


EOF

	sendmail (%mail)
		or $page .= p (escapeHTML ("Oops, failure sending mail to $mail{To}"));

	return (defined ($page) ? $page : "");
}