#!/usr/bin/perl
# ingramid.pl
use warnings;
use strict;
my @tempfile;
my $file;

my $ingramdir = "d:/ingram/ingramprc";

opendir(DIR, $ingramdir) 
	or die "can't open $ingramdir: $!";
	
while (defined($file = readdir(DIR))) {
	print "$file\n";
	open ingramoldfile, "d:/ingram/ingramprc/$file";
	while (<ingramoldfile>){
		chomp $_;
		push @tempfile, "$_\t$file\n";
		
	}
	close ingramoldfile;
}

open ingramnew, ">d:/ingram/ingramprc/ingramall.txt";
print ingramnew @tempfile;
close ingramnew;
closedir(DIR);