#!/bin/perl
# N'affiche que les lignes differentes d'un fichier
while (<>) {
	print unless ($dejavu{$_}++);
}