unless (open FH, ">$_[0]") {
        error($!, "not able to write to file $_[0]");
        return undef;
}