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