Select Code to Download

#!/usr/bin/env perl

...
open( my $output, ">", "port.txt" ) or die $!;
print {$output} "$_\n" for @result;
close($output);

use strict;
use warnings;
...

MCE::Flow->finish();
close($output);