use URI ();
use File::Spec::Unix ();

foreach (
   "http://www.faqs.org/rfcs/rfc1738.html",
   "http://www.server.com/math.cgi?eval=4/5",
) {
   my $uri = URI->new($_);
   $uri->query(undef);
   $uri->path(
      File::Spec::Unix->catpath(
         (File::Spec::Unix->splitpath($uri->path()))[0,1]));

   print($uri, $/);
}

# output
# ------
# http://www.faqs.org/rfcs/
# http://www.server.com/