...

sub external {
  ...
  _internal();
  ...
}

sub _internal {
}

##</code><code>##

@EXPORT = qw(external interface);
@EXPORT_OK = qw(_internal _interface);
%EXPORT_TAGS = (STD  => \@EXPORT,
                TEST => \@EXPORT_OK);