Select Code to Download

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