package Dog {

    use strict;
    use warnings;
    use Exporter qw( import );

    our $VERSION   = 1.00;
    our @EXPORT_OK = qw( dog );

    sub dog { shift }

    1;
}

##</code><code>##

#!/usr/bin/env perl   

use strict;
use warnings;
use feature qw (say);
use Dog qw(dog);

say dog ("barf!");

__END__