title: Perl syntax error, but I can't find it for the life of me
body: <p>This error is angering me. I can't see anything near those lines with a parenthesis error or missing brackets.  Someone give me a hand?  This is my first post, forgive me if the formatting is off; I think I got it right.</p>
  
  <p>EDIT: line 87, the ');' error, is this line: select(SEXTANT_DAEMON_LOG);</p>
  
  <pre><code>syntax error at -edited- line 87, near ");"
  syntax error at -edited- line 92, near "if"
  syntax error at -edited- line 99, near "if"
  Unmatched right curly bracket at -edited- line 102, at end of line
  syntax error at -edited- line 102, near "}"
  syntax error at -edited- line 109, near "}"
  syntax error at -edited- line 120, near ");"
  BEGIN not safe after errors--compilation aborted at -edited- line 122.
  </code></pre>
  
  <p>This is the code near the error (<a href="http://pastebin.com/vMB3LjJD" rel="nofollow">full code here</a>):</p>
  
  <pre><code>$MAIN_DBH = getConnection('Main');
  $fs_logfile = getCSConfigValue($MAIN_DBH, 'Log', 'Sextant Update Daemon') or die "pid$$[" . localtime(time()) . "] Main dbh error: " . DBI::errstr;
  open(SEXTANT_DAEMON_LOG, '&gt;&gt;', $fs_logfile) or die "pid$$[" . localtime(time()) . "] unable to open log file '$fs_logfile'\n";
  $tmp = select(SEXTANT_DAEMON_LOG);
  $| = 1;
  select(SEXTANT_DAEMON_LOG);
  </code></pre>