#!/usr/bin/perl
use strict;
use warnings;
use test;

my @gaga = ("paras", "kansas");

my ($x, $y) = test::test(@gaga);

print "$x\n$y\n";
##</code><code>##

package test;

sub test
{
   	my $tag = $_[0];
   	$tag =~ s/p/n/;
   	my $bag = $_[1];
   	$bag =~ s/k/p/;
   	
   	return $tag, $bag
}
1;

##</code><code>##

napas
panas
##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use test;

my @gaga = ("paras", "kansas");

my ($x, $y) = test(@gaga);	

print "$x\n$y\n";
##</code><code>##

package test;

     	my $tag = $_[0];
   	$tag =~ s/p/n/;
   	my $bag = $_[1];
   	$bag =~ s/k/p/;
   	
   	return $tag, $bag

1;
##</code><code>##

napas
panas
##</code><code>##

test.pm did not return a true value at test2.pl line 4.
BEGIN failed--compilation aborted at test2.pl line 4.