Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl -w -T

...
openlog('Wibble','pid,nowait',LOG_USER) || die "Whaaaaaa\n";

syslog(LOG_ALERT,"This is a test") || die "BOO HOO\n" ;

Select or download this
```
setlogsock('unix')
```