Undefined subroutine &B::just_print called at index.pl line 8.

##</code><code>##

# 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 @_;
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

hellohi