Select Code to Download

my $buf = '';
for (;;) {
...
}

die("Partial message") if length($buf);

my $buf = '';
my $want;
...
}

die("Partial message") if $want || length($buf);