die "perl citrix-enum-apps-xml-PORT-STATE-SERVICE+IP-disk.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">>$ARGV[2]");
$line_no=$line_stop=0;

while (<F0>) {
	s/\r\n//;
	/^[0-9]+/;
	$line=$';
	$line_no=$&;
	while (<F1> && $line_stop++ < $line_no) { s/\r\n//; }

	print F2 $_, "\t$line\n" if /[0-9]+\//; 

}
close F0; close F1; close F2;