use strict;
use warnings;

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

my $conf = q(
  log4perl.category.myapp = DEBUG, FileRotateAppender

  log4perl.appender.FileRotateAppender           = Log::Dispatch::FileRotate
  log4perl.appender.FileRotateAppender.filename  = myapp.log
  log4perl.appender.FileRotateAppender.mode      = append
  log4perl.appender.FileRotateAppender.size      = 100000
  log4perl.appender.FileRotateAppender.max       = 5
  log4perl.appender.FileRotateAppender.layout    = PatternLayout
  log4perl.appender.FileRotateAppender.layout.ConversionPattern=[%p] %d %M %F:%L:- %m%n
);
Log::Log4perl::init(\$conf);
my $log = Log::Log4perl::get_logger("myapp");

sub telnet_login {
  my $command = shift;
  $log->debug(qq{Got command:'$command});
  my $tl = undef;
  if ($tl = Net::Telnet->new()) {
    $log->info(q{Init'd new session});
  } else {
    $log->logdie(q{Failed to init telnet: } . $@);
  }
}

__END__