sub addheader {
    open FH, "< $indir/$file" or printf "can't open %s\n",$file;
    $line = <FH>;

    $_ = $line;