use Log::Log4perl qw(:easy);

    Log::Log4perl->easy_init(
        {level => $DEBUG,
         layout => "%F:%L: %m%n"});

    DEBUG("My Message");
    INFO("Another message");

##</code><code>##

    ./test.pl:15: My Message
    ./test.pl:16: Another message