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

##</code><code>##

$chdir "$subdir\\..";