package test; use base 'Exporter'; @EXPORT = qw/testroutine/; sub testroutine { 'This is a test'; } 1;