全角ファイル名の文字コードを再帰的に変換するスクリプト（convmvがインストールできない環境のため自作）

convmv_euc_to_sjis.pl

#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
use File::Copy;
use Encode;

my $target_dir = $ARGV[0];
my $option = $ARGV[1];

finddepth(\&convmv_euc_to_sjis, $target_dir);

sub convmv_euc_to_sjis() {
  my $conv = $_;
  Encode::from_to($conv, 'euc-jp', 'shiftjis');
  return if ($_ eq $conv);
  if ($option && $option eq "--notest") {
    move $_, $conv or die $!;
  } else {
    print $File::Find::dir . "/" . $conv . "\n";
  }
}