package C;

use Exporter qw(import);

our @EXPORT_OK = qw(c_func);

sub c_func {
    my $string_to_say = shift;
    print "$string_to_say\n";
}

1;