#!/usr/bin/perl -l
use DBIx::Log4perl qw(:masks);

$DBIx::Log4perl::LogMask = DBIX_L4P_LOG_OUTPUT | DBIX_L4P_LOG_INPUT;

print $DBIx::Log4perl::LogMask;