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