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

##</code><code>##

  $ perl -MO=Deparse,-p -e 'open F, shift || warn $! if $debug'
  ($debug and open(F, (shift(@ARGV) || warn($!))));