Using John's trick, you can do:

perl -e "print+(H,T)[rand(2)]for(1..200)"
[download]

Theodore Charles III
Network Administrator
Los Angeles Senior High
4650 W. Olympic Blvd.
Los Angeles, CA 90019
323-937-3210 ext. 224
email->secon_kun@hotmail.com