Select Code to Download

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

$chdir "$subdir\\..";