package test_func;
use base qw(Exporter);
our @EXPORT = qw(test_me);

sub test_me {
    my $txt = shift;
    print "Exec of test_me with: $txt\n";
    return $txt;
}

1;