use warnings;
use strict;

package B;

use lib '.';
use A;

our %hash;
my $count = 0;

sub run {
    my ($self, $x, $y) = @_;
    $hash{a} = $x;
    $hash{b} = $y;

    while (1){
        print "B: ";
        print "a: $hash{a}, b: $hash{b}\n";
        A->run;
        die "whoops!" if $count == 4 && $x == 1;
        last if $count == 6;
        $count++;
        sleep 1;
    }
}
1;