Perl Syslog server

use strict;


use Net::Dev::Tools::Syslog;


sub test{
print scalar(@_), "\n";
#print "@_\n";
}
my   ($listen, $error) = Net::Dev::Tools::Syslog->listen(
        -proto      => 'udp',
        -maxlength  => 4096,
        -verbose    => 0,
-report => 0,
-recv_message => \&test

    );