A script that removes duplicate files in its working directory

remove-duplicate-files.pl

#!/usr/bin/perl

use warnings;
use strict;

use File::Find;
use Digest::file qw(digest_file_hex);
use Cwd;

my %sums;
my @dups;

sub wanted
{
  return unless -f $_;
  my $sha = digest_file_hex($_, "SHA-256");
  if(defined($sums{$sha})) { push @dups, $File::Find::name; }
  else { $sums{$sha} = 1; }
}

find(\&wanted, getcwd);
unlink @dups;