Select Code to Download

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