sub genHeader { my $domain = shift; print "\n"; }