use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init({ 
    level => $INFO, 
    file  => ">>foo.txt" });

DEBUG "Doesn't make it.";
INFO "Hella!\n";