#!/usr/bin/perl -w

$|++;

use strict;
use Sys::Syslog;

# For openlog() call
my $ident = 'somefunprocessname';
my $logopt = 'pid';
my $facility = 'user';

# For syslog() call
my $priority = 'notice';
my $mask = '';
my $format = '';
my @args = '-ip user.notice -t somefunprocessname';

openlog($ident, $logopt, $facility);
syslog($priority, 'asdfasdf');
closelog();