my $list;
unless (open $list, '>', $whatever) {
    # ...
    $NONFATALERROR = 1;
}