Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...

$result_q->end;
$writer->join();
  2. or download this
    #!/usr/bin/env perl

...

$result_q->end;
$writer->join();
  3. or download this
    #!/usr/bin/env perl

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