Select Code to Download

use IO::Select;
my $s = new IO::Select;
...
    }
  }
}

open(my $h1, "nc server.com 12345|");
open(my $h2, "nc server.com 6789|");
# now call the above I/O handler loop

open(my $h1, "while true; do nc server.com 12345; sleep 10; done|");
# ditto for $h2