use strict;
use URI::URL;

my $a = 'http://www.ash.com/ed/example/one.html';
my $url = URI::URL->new($a);
my $path = $url->fragment();
print "$path \n";