# The main code: use A; use Blooper; foreach (0..1){ A::just_print("hi") if $_; B::just_print("hello") if not $_; } sub main_print(){ print @_; }