BEGIN { require ab; } $a::variable; &b::subroutine; #### BEGIN { require ab; import a qw( $var sub ); import b qw( sub2 sub3); } #### use a qw( $var2 &sub ); BEGIN { import b qw( $foo %bar ); }