#!/usr/local/bin/perl
#
#  extract-perl-procs - Prints the names of the Perl subroutines
#
while (<>) {
	print "$1\n" if (/^sub\s*([^\s]*)\s*.*$/o);
}
