Rewrote mklinks in Perl