#!/usr/bin/perl
#
open IN, "<debian/control.in" or die "Error opening control.in: $!\n";     	
open OUT, ">debian/control" or die "Error opening control: $!\n";				
while (<IN>){																		
	if ( m/^Include: (.*)/ ){														
		open INCL, "<$1" or die "Error opening include file '$1': $!\n";		
		while (<INCL>){																
			print OUT $_;															
		}																			
		close INCL or warn "Error closing $1: $!\n";							
	}else{																			
		print OUT $_;																
	}																				
}																					
close OUT or warn "Error closing control: $!\n";									
close IN or warn "Error closing control.in: $!\n";