+# Tell the user which videos we are going to merge
+foreach $video (sort keys %videos) {
+ # Only merge the videos if there is more than 1
+ my $num_videos = $#{$videos{$video}} + 1;
+ if($num_videos <= 1) { next; }
+
+ foreach $srcfile (@{$videos{$video}}) {
+ print " merging \"$srcfile\" into \"$video\"\n";
+ }
+}
+print "\n";
+
+# Now actually do the merging