perl kentfredric@gmail.com Kent Fredric String-Truncate String::Truncate