#----------------------------------------------------------------------------#
sub print_helpscreen {
    my ($handle, $section) = @_;

    seek $handle, 0, 0; # zum Anfang des DATA-Bereichs

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