--- /dev/null
+#!/usr/bin/perl -w
+
+use 5.010;
+use strict;
+use Cwd;
+
+my @file = qw( default.custom.yaml
+ squirrel.custom.yaml
+ wubi_pinyin.custom.schema.yaml );
+
+my $cdr = cwd();
+foreach (@file) {
+ print `ln -s $cdr/$_ $ENV{HOME}/Library/Rime/$_`;
+}
+say "==DONE==" unless $?;