#!/usr/bin/perl –w
 open(INF,"db.txt");
 @data = <INF>;
 close(INF);
 @sd = sort(@data);
 for(@sd){ push @out, $_ if (not @out) or ($out[-1] ne $_); };
open(OUTF,">outdb.txt");
 print OUTF;
 close(OUTF);

##</code><code>##

#find the files I want to change
	
	my @files;
	find(
	    sub {
	        return unless -f;        # Files only
	        return unless  /\.txt$/;  # Name must end in ".txt"
	        push @files, $File::Find::name;
	    },
	    $directory
	);