Select Code to Download

#! perl -slw
use strict;
...
async( \&connection )->detach for 1 .. 300;

sleep 1000;

#! perl -slw
use strict;
...
        close $client;
    }->detach;
}