# Print the specified section from STDIN (or file redirect)
# Sections use BEGIN/END and are delimited using HTML comments
#
$module = shift(@ARGV);
while (<>) {
	$begin = 1 if /<!--BEGIN $module-->/;
	$end = 1 if /<!--END $module-->/;
	print if $begin && ! $end;
}

