Select Code to Download

print $socket ...
readline $socket;

writable {
   syswrite ...
readable {
   sysread ...
}}

on_write => sub { ... },
on_read  => sub { ... },

sub http2 {
    my $req = shift;
...
             HTTP::Response-> parse( $res)
    }}
}

sub http3 {
    my $req = shift;
...
        again;
    }}
}