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