Strict because, well, it's just a good idea.
Warnings because, if he had it on, would probably have seen something like
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.
Note that I am guessing what his batch file would return to stdout. My test code to produce the above output...
#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
update: I suppose that's not alot of extra info but it is more that he had and might have made it easier for him to figure it out on his own. *shrugs*