#!/usr/bin/perl
# uniq.pl
#
# reads from from stdin or arg0, writes to stdout or arg1
if ($ARGV[0] ne "") { open STDIN, $ARGV[0];}
if ($ARGV[1] ne "") { open STDOUT, ">$ARGV[1]";}

while ( <STDIN> )
{
    unless($i{$_}++) {
$_=lc($_);

#print $_ . " -- " . $i2;
        push(@uniq,$_);


    } else {
	print "Removed Duplicate: " . $_ ;
        push(@remove,"Removed Duplicate: " . $_);

    }
}
print (sort(@uniq));    # sorted
#print (sort(@remove));    # sorted

#print (@uniq);           # unsorted