Select Code to Download

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

package Foo;

...
    my $thing = shift;
    return $thing;
}

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