Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my ($x, $y) = test::test(@gaga);

print "$x\n$y\n";

package test;

sub test
...
       return $tag, $bag
}
1;

napas
panas

#!/usr/bin/perl
use strict;
use warnings;
...
my ($x, $y) = test(@gaga);    

print "$x\n$y\n";

package test;

         my $tag = $_[0];
...
       return $tag, $bag

1;

napas
panas

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