myfistadin::runonce();

mysecondadin::runonce();

##</code><code>##

#!/usr/bin/perl -w

use strict;

package test1;

sub runonce
{
print "hello";
}

1;