#!/usr/bin/perl -I .
use strict;
#NOTE: we have not enabled warnings, otherwise Perl will
# point out that:
# Name "Module1::x" used only once: possible typo at  ...
# Use of uninitialized value $Module1::x in concatenation (.) or ...

#Really we would usually like these warnings, but here we are
# making a point.

use Module1;

print "do we have access to the other one?\n";
print "his x = $Module1::x\n";
print "his y = $Module1::y\n";