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

##</code><code>##

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