use Log::Log4perl;
use Log::Dispatch::FileRotate;

my $conf = undef;
my $log  = undef;
my $help = undef;
my $test = undef;
my $file = undef;

$conf = q(
  log4perl.category.Script          = INFO, ScreenAppender, ScriptFileRotateAppender

  log4perl.appender.ScreenAppender         = Log::Log4perl::Appender::Screen
  log4perl.appender.ScreenAppender.stderr  = 1
  log4perl.appender.ScreenAppender.layout  = PatternLayout
  log4perl.appender.ScreenAppender.layout.ConversionPattern=[%p] %d %F:%L - %m%n
  log4perl.appender.ScreenAppender.Threshold  = DEBUG

  log4perl.appender.ScriptFileRotateAppender           = Log::Dispatch::FileRotate
  log4perl.appender.ScriptFileRotateAppender.filename  = script.log
  log4perl.appender.ScriptFileRotateAppender.mode      = append
  log4perl.appender.ScriptFileRotateAppender.size      = 100000
  log4perl.appender.ScriptFileRotateAppender.max       = 5
  log4perl.appender.ScriptFileRotateAppender.layout    = PatternLayout
  log4perl.appender.ScriptFileRotateAppender.layout.ConversionPattern=[%p] %d %F:%L: %m%n
);
Log::Log4perl::init( \$conf );
$log = Log::Log4perl::->get_logger(q(Script));

$log->debug("start") if $log->is_debug();
$log->warn("stop") if $log->is_warn();