#!/usr/bin/perl

package TestExec;

use strict;
use warnings;

use Exporter;
our @ISA = ('Exporter');
our @EXPORT = ('test_exec');

test_exec() unless caller(0);

sub test_exec {
    print "this is what I do\n";
}

1;