disable the localization of dirname in macosx

localized_disable.pl

#
# Description:
#   Disable the localization of directory' name in Mac OS X.
#
use strict;
use warnings;

my $home = $ENV{'HOME'};
my @directories = (
  "$home/Desktop",
  "$home/Documents",
  "$home/Pictures",
  "$home/Downloads",
  "$home/Music",
  "$home/Movies",
  "$home/Sites",
  "$home/Public",
  "$home/Library",
  "/Applications"
);

for my $d (@directories) {
  my $old = $d . "/.localized";
  my $new = $old . ".disable";
  if (-e $old) {
    rename $old, $new;
    print "Disabled the localization for $d.\n";
  } else {
    print "Localization for $d has already disabled.\n";
  }
}