TestPrint.pm

package TestPrint;
use Exporter;
@ISA = 'Exporter';
@EXPORT_OK = qw(test_print);
use strict;


sub test_print
{
print "hello world";

return;
}

1;

__END__



mod.pl

#!/usr/bin/perl

use warnings;
use strict;

use TestPrint qw(test_print);

&test_print;   # seems to do nothing
test_print();  # also seems to do nothing