#!/usr/local/bin/perl
#
#  get-include-files - Prints the names of the included files.
#
while (<>) {
	print "$1\n" if (/^#\s*include\s*["<](.*)[">].*$/o);
}
