sub domkfile {
    my ($fname, @flist)=shift;
    open my $fh, '<', $fname or die "Can't open `$fname': $!\n";
    push @flist, /SOURCE=\.\\(.*)$/i while <$fh>;
    "@flist";
}