open (FH, '>', '/tmp/x/logfile') or do {
    warn "Cannot open file [$!]";
    return 1;
};