#!/usr/bin/perl

use strict;
use warnings;

use URI;

my $foo = URI->new('http://www.perlmonks.org');
my $bar = URI->new('http://www.perlmonks.org');

print "Using URI$/";
print '$foo', ($foo eq $bar ? " eq " : " ne "), '$bar', $/;
print '$foo', ($foo == $bar ? " == " : " != "), '$bar', $/;

__END__
Using URI
$foo eq $bar
$foo != $bar