Select Code to Download

package Net;

...
    @net_pnics = qw(foo bar);
}
1;

#!/usr/bin/perl -wl
use strict;
...
Net::fill_array();

print "@Net::net_pnics";    # "foo bar"