2 36 char ways, but I cheated... you get 0's and 1's instead of H's and T's
perl -e'map{printf"%.0f",rand}a..gr'
perl -e'map{printf"%d",rand 2}a..gr'