$ perle 'BEGIN { @INC = qw{old new .} } use xyz 1.0; say $xyz::VERSION' import called with args: xyz 1.0 $ perle 'BEGIN { @INC = qw{old new .} } use xyz 1.0 (); say $xyz::VERSION' 1.0 $ perle 'BEGIN { @INC = qw{old new .} } use xyz 1.0 qw{a b c}; say $xyz::VERSION' import called with args: xyz a b c 1.0 $ perle 'BEGIN { @INC = qw{old new .} } use xyz; say $xyz::VERSION' import called with args: xyz 1.0 $ perle 'BEGIN { @INC = qw{old new .} } use xyz (); say $xyz::VERSION' 1.0 $ perle 'BEGIN { @INC = qw{old new .} } use xyz qw{a b c}; say $xyz::VERSION' import called with args: xyz a b c 1.0