Select Code to Download

$xpath =~ s{/[^/]+$}{};

my @temp = split('/', $xpath);
$xpath = join('/',@temp[0..$#temp-1]);

$xpath = substr($xpath,0,rindex($xpath,'/'));