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