Select Code to Download

use warnings;
use strict;
...

print "Longest heads run is $maxH\n";
print "Longest tails run is $maxT\n";

Longest heads run is 6
Longest tails run is 2