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