#####Foo.pm######
package Foo;
 
sub test{
 
    my $name = shift;
    return $name;
} 

1;

##### bar.pl #####
#!/perl/bin/perl

use warnings;
use strict;
use Foo;

my $name=Foo->test("TEST");

print "NAME: $name\n";