Select Code to Download

use strict;
use warnings;
use List::Util qw(max min);
...
    }
}

use strict;
use warnings;
use List::Util qw(max min);
...

    return $ret;
}