#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