open ( LOG, $log ) || warn "  Couldn't open log\n"
    if ($debug);

##</code><code>##

open( LOG, $log ) or do
{
    warn "    Couldn't open log: $!\n" if $debug;
};