perl -MURI -le '$u = URI->new(shift); $u->path(undef); print $u' http://www.abc.com/def/ghi.html
http://www.abc.com