2007-11-21-ghettosiem.pl

use strict;
use File::Tail;
use Net::Syslog;

my $s=new Net::Syslog(Facility=>’local7′,Priority=>’System’,SyslogPort=>’514′,SyslogHost=>’10.0.0.5′);
my $log=File::Tail->new(’c:windowssystem32logfilesw3svc1www.log’);

while (defined(my $line=$log->read)) {
    $s->send($line,Priority=>’system’);
}