Dup killer

gistfile1.txt

#!/usr/bin/perl
use warnings;
use strict;

use Cwd;
use Digest::MD5;

my $md5     = Digest::MD5->new();
my %digests = ();

my $dir = cwd;

opendir DIR, $dir or die "Could not open directory: $!\n";

foreach my $file ( readdir( DIR ) )
	{
	next if $file =~ /^\.\.?$/;
	open my($fh), $file or do { warn "$file: $!\n"; next };
	$md5->addfile( $fh );
	
	my $digest = $md5->hexdigest;
	
	if( exists $digests{ $digest } )
	  {
	  print "$digests{ $digest }\n  --> $file\n";
	  unlink $file
	  }
	else
	  {
	  print "$file: $digest\n";
	  $digests{ $digest } = $file;
	  }
	  
	$md5->reset;
	}