sub error
{
    warn map { "$_\n" } @_;
    return undef;
}

#
# and later
# 

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