Help for this page

Select Code to Download

Select or download this

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

Select or download this

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