Help for this page

Select Code to Download

Select or download this

use warnings 'all';
use strict;
...

close $out;
close $in;