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