#!/usr/bin/perl
# script: apache-access-logger

use Sys::Syslog;
$SERVER_NAME = shift || 'www';

$PRIORITY = 'info';
$FACILITY = 'local1';

Sys::Syslog::setlogsock('unix');
openlog ($SERVER_NAME,'ndelay', $FACILITY);
while (<>) {
  chomp;
  syslog($PRIORITY,$_);
}
closelog;