#!/usr/bin/perl -w
use strict;

use library;
print "Library-my:    ", $library::my, "\n";
print "Library-our:   ", $library::our, "\n";

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

print "Thing: $thing\nOther: $other";

##</code><code>##

package library;

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


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


##</code><code>##

Use of uninitialized value in print at testing.pl line 5.
lib my
our endlib 

Library-my:    
Library-our:   our
Thing: 
Other: our
Use of uninitialized value in concatenation (.) or string 
at testing.pl line 11.

##</code><code>##

#!/usr/bin/perl -w
use strict;

use library;

my ($lib_my, $lib_our) = library->retvals;
print "Returned my : $lib_my and returned our : $lib_our\n";

#-------------------------
#library.pm

package library;

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

sub retvals {
	$self = shift;
	return $my, $our;
}