setlogsock( 'unix' );
openlog( 'FooClass', 'pid', 'local6' );

##</code><code>##

closelog()

##</code><code>##

package FooClass;
use strict;
use warnings;

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

BEGIN {

   setlogsock( 'unix' );
   openlog( 'IPScan', 'pid', 'local6' );

}

END { closelog() }


sub new {

   my $invocant = shift;
   my $class    = ref( $invocant ) || $invocant;
   my %args     = @_;

   my $self = bless { %args }, $class;

   syslog( 'info', "blah blah blah" );

   return $self;

}

sub foobar {

   my $self = shift;

   syslog( 'info', 'foobarred' );

   # do stuff 
}

1;

##</code><code>##

no connection to syslog available
        - _PATH_LOG not available in syslog.h at /path/to/FooClass.pm line 24

##</code><code>##

syslog( 'info', "blah blah blah" );