C:\Users\tblaz\Documents\evelyn>perl 1.perl_log.pl

C:\Users\tblaz\Documents\evelyn>type test.log
2019/12/24 22:25:14 Debug this!
2019/12/24 22:25:14 Info this!
2019/12/24 22:25:14 Warn this!
2019/12/24 22:25:14 Error this!
2019/12/24 22:25:14 Fatal this!

C:\Users\tblaz\Documents\evelyn>type 1.perl_log.pl
#!/usr/bin/perl -w
use 5.016;
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init( { level   => $DEBUG,
                            file    => ">>test.log" } );

    # Logs to test.log via stealth logger
DEBUG("Debug this!");
INFO("Info this!");
WARN("Warn this!");
ERROR("Error this!");

some_function();

sub some_function {
        # Same here
    FATAL("Fatal this!");
}
C:\Users\tblaz\Documents\evelyn>