package MySubroutine;
use Exporter();
use DBI;
@ISA = qw(Exporter);

@EXPORT = qw(MySubroutine);

sub MySubroutine
{

...


}
1;