Programming

Error:readline() on closed filehandle OR at run.pl line 31.

open OR,$ARGV[2];
while (<OR>) { # find the batch date
next if length $_ < 3; # BLANK LINE
# last if $. > 120; # sample should be good enough
(undef,undef,undef,undef,$date1,$orId,undef)=split(/,/,$_,7);
$dates{$date1}++;
$firstOr ||= $orId;
}
close OR;

 
open OR, $ARGV[2] or die "can't open $ARGV[2]: $!\n";