Help for this page

Select Code to Download


  1. or download this
    #file shared1.pm:
use strict;
...

use Exporter(); @ISA=qw(Exporter);
@EXPORT = qw(xxx1);   # exports name xxx1
  2. or download this
    use strict;
use shared1;  # 'include' shared code
...
# call sub defined in shared1.pm
my $result = xxx1($arg1, %arg2, @arg3, $optarg1, $optarg2);
...