my (@lines, %line_md5);


##</code><code>##

	my $digest = md5($_);
	unless ( exists $line_md5{$digest} ) {
	  $line_md5{$digest} = 1;