#!/usr/bin/perl
open (f1,"news.txt")|| die "error open file news.txt";
print <f1>;

open (f1,"./genhd.pl |")|| die "error run genhd.pl";
print <f1>;

print '</body></html>';