my $filename = (URI->new($url)->path_segments)[-1];
my ($volume,$directories,$filename) = File::Spec->splitpath( $url );