sub addheader{
	my($infile,$header)=@_;

	open(FILE, "$infile");
	my $text=do {local $/; <FILE>};
	close FILE;

	open(FILE,">$infile");
	print FILE $header;
	print FILE $text;
	close FILE;
}