while (sysread FILE, my $buffer, 4096) {
    $conn->send($buffer);
}