Select Code to Download

use strict;
use warnings;
...
        $file_num += 1;
        $file_num %= $number;
}

perl script.pl --format out --number 7 input1 input2 ...