sub header {
	my $html 	= shift;
	my $header 	= shift;
	my $time	= shift;
	open (OUT,">$html") or die ("No html file: $!\n");