package nu;
use Exporter;
@ISA = qw( Exporter );
@EXPORT_OK = qw( &ret );
my $action = $ARGV[0];
sub ret{
  my $str = $action ? $action : 'Nop';
  return $str;
}

 1;

##</code><code>##

----
---
use lib '/mydir/lib';
use nu;

my $gat = ret('one4u');
print "Value is $gat \n";
----
---