#!/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;
}