wouldnt it be something like

myfistadin::runonce();

mysecondadin::runonce();
[download]

where myfirstadin would be myfirstadin.pm

#!/usr/bin/perl -w

use strict;

package test1;

sub runonce
{
print "hello";
}

1;
[download]

and I beleive you would use require "myfirstadin.pm";

update
I misread, my post doesnt exactly answer your question...