Select Code to Download

my %data = (
    'main' => 'Top Level',
...
         ....
             )
     ...);

sub get_catagory_path {
    my @paths = split /\//, $_[0];  # may need to play with leading /
...
    }
    return join '/', @catagories;
}