$sourcedir = 'c:/caml386/src';
$destdir = 'c:/caml86/src';

sub update_dir {
  local ($dir) = @_;
  