#!/usr/bin/perl  
use CGI qw(:standard);  
use CGI::Carp 'fatalsToBrowser';  
  
print "Content-type:text/html\n\n";  
  
  
$action = param('action');  
$input = param('first');  
  
if ($action eq "1"){  
 sort_array();  
}  
else {  
 main();  
}  
  
sub main{  
print qq(  
Insert all email addresses in here<br>  
<form action ="sort.pl" method="post">  
<input type="hidden" name="action" value="1">  
<textarea name="first" rows="10" cols="40"></textarea><br>  
<input type="submit" value="Let's get rid of those dup's!">  
</form>  
);  
  
}  
  
sub sort_array{  
print "Sorting..<br>";  
(@input_done) = split(/\n/, $input);  
@sorted = sort { $a <=> $b } @input_done;  
  
@no_duplicates1 = grep !$seen{$_}++, @sorted;  
  
print qq(<textarea rows="10" cols="40">);  
foreach $thing (@no_duplicates1){  
 print "$thing\n";  
}  
print qq(</textarea>);  
  
}

    
  
ryan@lonegamers.com--  
blah@blan.com--  
ryan@lonegamers.com--  
blah@blah.com--