Help for this page

Select Code to Download

Select or download this

use 5.16.3;
use warnings;
...
    }
close $in;
close $out;