C:\Documents and Settings\erickn\Desktop\invexp>e.pl
line 1
Can't take log of 0 at C:\Documents and Settings\erickn\Desktop\invexp\e.pl line 9, <DATA> line 1.

##</code><code>##

#use warnings;
use strict;
use Log::Log4perl qw();
Log::Log4perl::init("process.conf");
my $log = Log::Log4perl->get_logger();
#open APP, "Exception.bat |" or die "File not found\n";
while(<DATA>){
    print;
    log->info;
}
print "Out of batch file\n";
__DATA__
line 1
line 2