#!/usr/local/bin/perl

while () {

my $random = int( rand(2));
my $flip;
if ($random == 0) {
$flip = "H";
}
if ($random == 1) {
$flip = "T";
}
print "$flip\ ";

}