use Log::Log4perl qw(:easy);

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

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