package gettst; use base qw(Exporter); our @EXPORT = qw(gettst); sub gettest{ #... } 1;