my ($dir, $subdir) = $sharedir =~ /^(.*)\/(.*)$/;
chdir $dir;