Select Code to Download

my $path = 'C:\somedirectory\anotherDirectory\WorkingDirectory\myFile.
+txt';
my ($volume,$directories,$file) = File::Spec->splitpath( $path );
...

my $partial = = File::Spec->catfile( $dirs[-1], $file );