require Example::Tuple;

my $w= Example::Tuple->new( 3, 4 );
my $x= Example::Tuple->new( 4, 3 );
my $y= Example::Tuple->new( 3, 4 );
my $z= $w;
print "w and z are the same object.\n"
    if  $w == $z;
print "$w and $y are at the same position.\n"
    if  $w eq $y;
print "$x and $y are at different positions.\n"
    unless  $x eq $y;