#!/usr/bin/perl -w

$file1=$ARGV[0];
$file2=$ARGV[1];

open IN1,$file1;
while (<IN1>)
{
	$hash1{$_}=1;
}
close IN1;

open IN2,$file2;
while (<IN2>)
{
	$hash2{$_}=1;
}
close IN2;

foreach $cle1 (keys %hash1)
{
	push @tab_diff1,$cle1 unless ($hash2{$cle1});
}

foreach $cle2 (keys %hash2)
{
	push @tab_diff2,$cle2 unless ($hash1{$cle2});
}

$nb1=@tab_diff1;
$nb2=@tab_diff2;

print "\n\n$file1 : $nb1\n";
foreach $val (@tab_diff1)
{
	print "$val";
}
print "\n\n$file2 : $nb2\n";
foreach $val (@tab_diff2)
{
	print "$val";
}
print "\n";