sub log {
    eval {
      syslog($_[0], $_[1]);
    };
    if ($@) { print STDERR "Syslog error: $@ $!\n";
}