Style Point: instead of print MAIL "-----------------------------------------------", you could write

perl -e "print MAIL q(-) x 30;"
[download]

Celebrate Intellectual Diversity