package a;

sub a_test {
   print "Hello, world!\n";
}

package b;

&a_test;       # fails
&a::a_test;    # Hello, world!