Select Code to Download

#Test.pm
package Test;
...
sub func2  { return map{ uc }@_ }

1;

#Test.pl
use strict;
...
 use Test qw(:Both);
 print func1(@list),"\n";
 print func2(@list),"\n";