Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
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’);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment