#!/usr/bin/perl -w
use strict;
my $d=$ARGV[0];
my $s=$d.'_KITP';
$s =~ s/^(\w)/"\U$1\E"/e;
my $old="$d/snd/$d".'_KITP.m4b';
my $new="$d/snd/$s".'.m4b';
rename $old, $new;
symlink $new, $s.'.m4b';
exit;