while ($_ = $opts{-handle}->getline()) {
        print;
    }