package MyProject::Utils; use warnings; use strict; use base qw/ Exporter /; use vars qw/ @EXPORT_OK /; @EXPORT_OK = qw/ mysub_foo mysub_bar /; sub mysub_foo { ... } sub mysub_bar { ... } ... use MyProject::Utils qw/ mysub_bar /; my $x = mysub_bar( 23 );