Help for this page

Select Code to Download


  1. or download this
    package MyModule;

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

1;
  2. or download this
    #!/usr/bin/perl -w

use strict;
...
# use MyModule qw(:Both);
# print func1(@list),"\n";
# print func2(@list),"\n";
  3. or download this
    BEGIN { push @INC, '/my/dir' }
# or
BEGIN { unshift @INC, '/my/dir' }
# or
use lib '/my/dir';