Select Code to Download

use strict;
use warnings;
...
my @foo = splitdir ($path);
my $subpath = catdir (@foo[1..3]); # Note that the "volume" is blank s
+o skip that
print "Sub path = $subpath\n";

Sub path = a\b\c