package MyFeatures;

use strict;
use warnings;

use Exporter qw/ import /;

our @EXPORT_OK = qw/ say /;

sub say {
    my $str = shift;
    print "$str\n";
}

1; # return true


##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use MyFeatures qw/ say /;

my $str = 'Hello, world.';

say $str;
say q{Nice weather, isn't it?};

__END__


##</code><code>##

Hello, world.
Nice weather, isn't it?