use strict;
use myfirstadin;
use mysecondadin;

print "hello world";
&runonce;

exit;

--------------
myfirstadin.pm

sub runonce {
    print "This is file myfirstadin.";
}
--------------
mysecondadin.pm

sub runonce {
    print "This is file myfirstadin.";
}
--------------