sub format_email_text {
    my ($player, $parent, $memberid) = @_;
    sprintf "%-30s %-50s\n" x 3,
        'Player Name:', $player,
        'Parent\'s Name:', $parent,
        'Member ID:', $memberid;
}