1#!/usr/bin/perl
2
3while(<STDIN>) {
4	if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
5		{
6		print "$1\n";
7		exit 0;
8		}
9}
10
11print "$ARGV[0]\n";
12
13