my $to_write = length($msg);
while ($to_write) {
    my $written = syswrite($fh, $msg, $to_write, -$to_write)
        or die "syswrite: $!\n";
    $to_write -= $written;
}