use Foo;
my $name = Foo::test("TEST");
print "Name: $name\n";

##</code><code>##

package Foo;

use strict;
use warnings;

use base 'Exporter';
our @EXPORT_OK = ( 'test' );

sub test {
    my $thing = shift;
    return $thing;
}

##</code><code>##

use Foo qw(test);
my $name = test("TEST");
print "Name: $name\n";