Select Code to Download

    use strict;
    use warnings;
...
    print "folderpath: $folder_path\n";

$folder_path =~ s{/[^/]*/\z}{};