in reply to flock on on $^I

Try to flock the ARGVOUT filehandle in the while loop. See perlvar for the description of ARGVOUT.

Update: I meant ARGVOUT instead of ARGV.

In Section Seekers of Perl Wisdom