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