while (<$handle>) {
   # ...
}