#!/usr/local/bin/perl use strict; use warnings; use Digest; if(@ARGV){ foreach(@ARGV){ my $ext = substr $_, (rindex $_, '.'); open FILE, $_; binmode FILE; my $ctx = Digest->new('MD5'); $ctx->addfile('FILE'); close FILE; rename $_, $ctx->he…