# untested:
my @path_chunks = $url->path_segments;
pop @path_chunks; # remove the last one, which is the file name
my $dir = $song{dir} = join '/', @path_chunks;