Select Code to Download

$ perl squeeze_ips.pl -i input.list -o output.list

use strict;
use warnings;
...
    return
      wantarray ? ( $in_fh, $out_fh ) : [ $in_fh, $out_fh ];
}