Select Code to Download

package MyModule;

use strict;
...
sub func2  { return map{ uc }@_ }

1;

#!/usr/bin/perl -w

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

BEGIN { push @INC, '/my/dir' }
# or
BEGIN { unshift @INC, '/my/dir' }
# or
use lib '/my/dir';