#! perl -w
# mylog.pl
# using a package that print it's absolute filename.

use strict;
use warnings;
use Log::Log4perl;
use Cwd qw( abs_path );
use lib $ENV{HOME};    # location of MyLog.pm
use MyLog;

my $conf = q(
log4perl.category.Log           = INFO, Screen
log4perl.appender.Screen        = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern = %l> %m %n
);

Log::Log4perl->init( \$conf );
my $log4perl_logger = Log::Log4perl->get_logger('Log');

my $abs_path = abs_path($0);
$log4perl_logger->info("abs_path=$abs_path");

my $rel2abs = File::Spec->rel2abs($0);
$log4perl_logger->info("rel2abs=$rel2abs");

MyLog->init($log4perl_logger);
MyLog->path();