get.pl

$ua->request(
    HTTP::Request->new(GET => $URL),
    sub {
        my($chunk, $res) = @_;
        # do something on $chunk
    }
);

post.pl

$req = HTTP::Request->new(POST => $URL);
$req->header(KEY => VALUE);
$req->content($bytes);

$ua->request(
    $req,
    sub {
        my($chunk, $socket, $res) = @_;
        $socket->write($chunk);
    }
);