package TestModule;
use Log::Log4perl qw(:easy);
use strict;
use warnings;

sub new {
    my ($this,%params) = @_;
    
    my $args  = {
        "arg1" => "5",
        "arg2" => "6",
        %params,
    };
    
   bless($args,$this);
   my $log_file = "somepath";
   my $new_log_file = "GIVE SOME PATH";

my $file_appender = Log::Log4perl::Appender->new(
 "Log::Log4perl::Appender::File",
 name      => "TestModule",
 filename  => "$new_log_file");

INFO "New object created";
return $args;
    
}

sub _printTime {
    my $time = localtime;
    INFO "$time";
}
1;