#!/usr/bin/perl -w

open TMPINCLUDEIPFILE, "<", "$tmpincludeipfile";
open  TMPIPACCOUNTINGFILE, "<", "$tmpipaccountingfile";

foreach $Line (<TMPINCLUDEIPFILE>) {
		print "Line = $Line\n";
		foreach $Line1 (<TMPIPACCOUNTINGFILE>) {
			print "Line1 = $Line1\n";
		}
		
	}
exit;