Select Code to Download

'Dir1/001' => ['jpg'],
'Dir2/002' => ['jpg'],
'Dir2/001' => ['jpg', 'cr2']

use strict;
use warnings;
...
    print "Partial Path: $partialPath\n";
    print "File Type(s): $fileTypes\nBasename: $baseFilename\n\n";
}