Skip to content

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=>’′);
my $log=File::Tail->new(’c:windowssystem32logfilesw3svc1www.log’);
while (defined(my $line=$log->read)) {
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.