package Uniq;

$VERSION = 0.07;
@EXPORT  = '&Uniq';
use strict;
use base 'Exporter';

sub Uniq {
  my ($infile, $outfile)  = @_;
  my ($lines, %seen);
  open IN, "<$infile";
    for(<IN>) {
      ++$lines;
      ++$seen{$_};
    }
  close IN;
  open  OUT, ">$outfile";
  print OUT sort keys %seen;
  close OUT;
  $lines;
}

1;