use strict;
my %hash;
my $file = 'infile.txt';

open INFILE, "<$file" || die "Can't open '$file' $!\n" ;
$hash{$_}++ while <INFILE>;

open OUTFILE, ">$file" || die "Can't open '$file' $!\n" ;
print OUTFILE "$_" foreach (keys %hash);