#... stick out left leg
    while ( readline($opts{-handle}) ) {
        if ( $_ ) {
            # ... frobnicate
        }
    }
# return right leg