log_wrapper for perl

gistfile1.pl

sub log_wrapper {
    my $log = shift;
    my $priority = shift;

	if ( ! defined $priority ) {
		$priority = 'debug';
	}

    if ( $ENV{APP_LOG} eq 'LOCAL' ) {
        openlog( $ENV{APP_NAME}, 'ndelay,pid', 'LOG_DAEMON' );
        syslog( $priority, $log );
        closelog();
    } elsif ($ENV{APP_LOG} eq 'NET') {
        my $log_net = Net::Syslog->new(
                                Name => $ENV{APP_NAME},
                                Facility => 'local7',
                                Priority => $priority,
                                SyslogPort => $ENV{APP_SYSLOG_PORT},
                                SyslogHost => $ENV{APP_SYSLOG_HOST},
                                );
        $log_net->send($log);
    }
    return;
}