#----------------------------------------------------------------------------#
# sub print_helpscreen
# Aufruf: print_helpscreen(*HANDLE, 'section')
# Gibt Helpscreen aus angegebenen Sektion in <$HANDLE> aus.
# Beispiel: print_helpscreen(*DATA, 'hilfetext')   # DATA-Handle des Aufrufers
# 'Sektion' bezeichnet einen in HTML-artige Tags gefassten Abschnitt,
# im Beispiel: <hilfetext> ... </hilfetext> (case-insensitive)

sub print_helpscreen {
    croak 'print_helpscreen: Missing argument' if @_ < 2;
    my ($handle, $section) = @_;

    LOOKUP_SECTION:
    while (my $line = <$handle>) {
        last LOOKUP_SECTION if $line =~ m{<$section>}i;
    }

    PRINT_LINE:
    while (my $line = <$handle>) {

        last PRINT_LINE if $line =~ m{</$section>}i;
        print $line;
    }
}
#----------------------------------------------------------------------------#