#! /usr/bin/perl -w

use Sys::Syslog qw(:DEFAULT setlogsock);

setlogsock("inet");
openlog("logtest", "ndelay, pid, nowait", "local3");
#$bla = openlog("logtest", "ndelay", "local3");
#print "$bla\n";
syslog("info", "bla");
#$bla = syslog("info", "bla");
#print "$bla\n";
closelog();
#$bla = closelog();
#print "$bla\n";

exit 0;