# main use base qw(A) ; &test() ; package A ; sub test { }