URI comparison in Perl / URI.pm 1.22

Using

  <http://search.cpan.org/author/GAAS/URI-1.22/URI.pm#COMMON_METHODS>

in a Perl program

  #!perl -w
  use strict;
  use warnings;
  use URI;
  
  my $uri1 = URI->new("http://www.example.org/%61");
  my $uri2 = URI->new("http://www.example.org/a");
  
  print "equal" if $uri1->eq($uri2);

prints "equal".