Help for this page
use strict; use warnings; ... print "$x: unlocked file\n"; return; }
0: locked file 1: locked file ... 7: unlocked file 8: unlocked file 9: unlocked file