Select Code to Download

my $r;
while ($r = read ...) {
    ... do stuff here ...
}
die "read failed: $!" unless defined $r;

while (read(...) // die "read failed: $!") {
    ... do stuff here ...
}