program.pl 
#!/usr/bin/perl -w
use strict;
use lib '/home/httpd/cgi-bin/testing/WORTHLESS';
use library;

print $library::my;
print $library::our;

my $thing = $library::my;
my $other = $library::our;

print "$thing\n$other";

--------------

library.pm 

my $my = "my";
our $our = "our";


print "lib $my\n$our endlib";

##</code><code>##

#./program.pl 
lib my
Use of uninitialized value in print at ./program.pl line 6.
Use of uninitialized value in print at ./program.pl line 7.
Use of uninitialized value in concatenation (.) or string at ./program.pl line 12.
Use of uninitialized value in concatenation (.) or string at ./program.pl line 12.
our endlib