#!/usr/local/bin/perl
#
#
# prune
#
# Script to find unqiue gopher items...
#
# Usage:
#	prune veronica_dump_file
#
#	example:  prune futique.scs.unr.edu


$Input = $ARGV[0];

open(File, "$Input");
open(OutFile, ">> $Input.out");

while (<File>)
{
	($Name, $Selector) = split(/\t/, $_, 2);
	$Entry{$Selector} = $Name;
}

foreach $key (sort keys(%Entry))
{
	print OutFile "$Entry{$key}\t$key";
}
