{
  my %seen;
  local($^I, @ARGV) = ("", $outputfile);
  while (<>) {
    next if $seen{$_}++;
    print;
  }
}