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

Actually, I would write this as

$chdir "$subdir\\..";
[download]

(should be no peril in this context, isn't it?), but, yes, you are right, this seems to work well!! Great idea!