#Blooper.pm package B; sub just_print { print @_; main::main_print(); } 1;