LongTail_send_access_to_syslog.pl

#!/usr/bin/perl
    use Sys::Syslog qw( :DEFAULT setlogsock );

    setlogsock('unix');
    openlog('LongTail_apache', 'pid', 'auth');

    while ($log = <STDIN>) {
                syslog('notice', $log);
    }
    closelog;