#!/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".'-tv.mov';
my $new="$d/snd/$s".'.mov';
print STDERR "rename $old, $new\n";
rename $old, $new;
symlink $new, $s.'.mov';
exit;