tcl for sending email when compilation finished

Hi, Is there any script known to man for sending an email saying the compilation was finished and the results? If not, any idea how do I write such one? Thx.