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