package two; use base Exporter; our @EXPORT = qw (one two); our @EXPORT_OK = qw (three four); sub one { 2.1; } sub two { 2.2; } sub three { 2.3; } sub four { 2.4; }